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1T: INIRULDUC TTS 


In any environment where one organization contracts 
with another there arises concern over whether the 
contractor is performing up to the standards expected by 
the organization which employs him. This is especially 
true in today's Navy, with its commitment to ехріогиие 
the possibilities of civilian contractors taking over 
functions which have heretofore been run by Naval 
personnel and civil service employees. This commitment to 
exploring commercial service contracts was occasioned by 
senior policy makers” determination to obtain quality 


services at minimum prices. 


This senior policy guidance has had significant 
impact upon the Naval support establishment апа has 
resulted in numerous studies to determine the most 
efficient means of obtaining a host of services currently 


performed by the Navy itself. 


Of particular interest is the possibility that the 
operations of some or all of the Navy’s regional data 
automation centers (NARDACS) may come under commercial 
service contract operation. Because of the tremendous 
amount of data processed by these centers, they are 
extremely important to the smooth operation of the fleet. 


The adverse consequences of poorly run ADP services’ can 


scarcely be overestimated. It is of critical importance 
that there exists a sure, secure method of assuring the 
quality of ADP services operated under service contract. 
This, then, is a description of the methodology used by 
one command to automate an existing quality assurance 


Standard in order to ensure its proper operation. 


II. BACKGROUND 


А. PROJECT ORIGIN 


The Naval Regional Data Automation Center  (NARDAC), 
San Francisco CA, established in 1978 as a tenant command 
at Naval Air Station Alameda, is an echelon three shore 
activity under the Commander, Naval Data Automation 
Command (COMNAVDAC). NARDAC’s mission is to provide 
automated data processing (ADP) services to Naval 
activities in the San Francisco area and wherever else 
directed by COMNAVDAC. Commands supported by NARDAC 
include Naval Air Rework Facility, Alameda; Naval Air 


Station, Alameda; Naval Air Station, Moffett Field; Naval 


Air Station, Lemoore; Naval Support Activity, Treasure 


Island; Naval Supply Center, Oakland; the Commander in 


Chief, United States Pacific Fleet; and the Fleet 
Accounting and Disbursing Center, San Diego. In orders 
Support this mission, NARDAC also manages and directs 


remote facilities in order to provide local data ров 
sing support in coordination with the regional Center Ши 
designs, develops and maintains automated data systems; 


and it performs such other tasks as may be directed by 


COMNAVDAC. 
NARDAC is in operation twenty-four hours daily, every 
day of the year. In the course of the average day's 
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реза 21оп, there are approximately ten thousand 
individual jobs completed. These jobs often include the 
ОССЕ GOI physical output product: printed pages, 
Hollerith cards, microfiche, etc. This output is provided 
to end users in a variety of ways: transmitted electron- 
ically; physically shipped to the user, left available 
for pickup at the center, or one of several remote sites; 


Om mailed. 


NARDAC San Francisco is staffed by a mixture of Naval 
personnel and civil service employees under the command 
of a Navy captain. There are subordinate remote activi- 
ties at NAS Moffett Field and NAS Lemoore, each with its 
I Calf Under the direction of an officer in charge, 
who reports to the Commanding Officer, NARDAC San 
Prancisco. The total staffing, including personnel at the 
remote activities, 1S approximately 50 military and 280 


Civil service employees. 


Pie 1982, the Chief Of Naval Operations 
notified the Naval Regional Data Automation Center, San 
Francisco that Data Automation Services and System 
Design, Development, and Programming services currently 
being conducted in-house by NARDAC San Francisco would be 
included in cost studies conducted in accordance with OMB 


Circular No. A-76 [Ref. 1]. The Commander, Naval Data 


Td 


Automation Command tasked NARDAC San Francisco with 
developing a Commercial Activities (CA) Program in 
November 1982 [Refs. 2 and 3]. The purpose of the program 
is to explore the possibility of selected portions Wee 
NARDAC’s operation being run Бу а civilian contractor 


under a service contract whereby the contractor (“ош 


operate NARDAC, in lieu of та Баку ans civilian 
personnel, using government furnished equipment and 
supplies. Included in this tasking are the requirements 


for the Performance Work Statement and Quality Assurance 
Package to be completed by 1 June 1984 and the entire СА 


study to be finished and the decision made by 1 October 


1985 to contract with a commercial source or to Шел ва 
operation of NARDAC San Francisco аз an in-house 


МЕ Рано 


B. DISCUSSION OF GMB CIRCIEAE PNO S C 

The Office of Manpower and Budget's Circular No.  A- 
76; Performance of Commercial Activities, ТЕС” 
establishes Federal policy regarding the performance of 
commercial activities. A commercial activity is defined 
by OMB Circular No. A-76 as an activity lI Dun 
operated by a Federal executive agency and which provides 
a product or service which could be obtained from a 
commercial source. A commercial activity is not a Gover- 


nment function." OMB Circular No. A-760 15 Багед сп 5 


I- 


key concepts: one, that the government is not in compe- 
tition with its citizens; and two, that the competitive, 
free enterprise system is the primary source of national 
economic strength and that competition enhances quality, 


economy and productivity. 


The government policy set forth in OMB Circular No. A- 
76 is three-fold: in order to achieve economy and enhance 
productivity where possible, comparison of the cost of 
contracting and the cost of in-house performance shall be 
done to determine who does the work; to retain certain 
functions in-house as being inherently governmental in 
K ure and not іп competition with the commercial sector; 
and to rely, to the greatest extent possible, on the 


commercial sector to provide commercial services. 


There are certain limitations affecting the scope of 
SE Circular No. A=76, but the original document and its 
supplements apply to all executive agencies. It provides 
for government performance of a commercial activity under 


ere Of the following conditions: 


Це Ша по satisfactory commercial source 15 


available; 


2. ТЕ the performance of the activity is required 


for the national defense; 
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3. If patient care at a hospital operated by the 


government would be served best by in-house 
performance; 
4. If the government is operating, or can operate 


the activity at lower cost than a qualified 


commercial source. 


In order to ensure proper performance by a contracte 
Supplement 1 to OMB Circular No. A-76 [Ref. 4: pp. I-1] 
mandates that Contract Administration personnel develop a 
Quality Assurance and Surveillance Plan in accordance 
with Supplement 2 to OMB Circular No. A-76, published 
separately as Office of Federal Procurement Policy 
Pamphlet No. 4 (hereafter referred to as OFPP 4). This 
publication specifies the general methodology по ин 
establishment and conduct of Quality Assurance and 
Surveillance Programs for use in Commercial Activities 
Programs [Ref. 5: pp. 43 - 74]. The Commander, Naval Data 
Automation Command notified NARDAC, San Francisco that 
even though OFPP 4 is currently under revision) n 
Oct 80 version of OFPP 4 remains in effect until the 


Office of Management and Budget (OMB) issues ап edited, 


clarified version. No major procedural changes to ОБРА 
are anticipated. Its use is mandatory for all Navy СА 
cost comparisons." [Ref. £6: p. 2]. In a memorandum dated 
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20 March 1984 the Assistant Secretary of Defense for 
Manpower, Installations, and Logistics has expanded the 
scope of this Quality Assurance and Surveillance Plan to 
require its use by facilities retaining performance of 
commercial services in-house. This policy requires the 
same levels of performance of the Navy operated activity 
as if the contract had been let to a private contractor 


Heer. 7: р.А-1]. 


C. GUIDANCE ON SURVEILLANCE PLANS FROM OFPP 4 

Appended as Supplement 2 to OMB Circular No.  A-76, 
Office of Federal Procurement Policy Pamphlet No. 4 [Ref. 
app. 43-74 provides specific guidance in the formula- 
tion of Quality Assurance and Surveillance Plans for use 
by Contracts Administration personnel. The pamphlet 
presents three key ideas as bases for a surveillance 


plan: 


ие, шхсерелоп. When the government 


specifies the quality assurance procedure, compliance 
by the contractor with that QA plan is the desired 


output service. 


2. Performance Indicator. The level of service 
provided by the contractor is checked and monitored 
by comparing his performance with the values 


Specified in the Performance Work Statement (PWS). 
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3. Problem Location. If contractor performance values 
indicate that the service provided by the contractor 
is not being adequately performed, Quality Assurance 
personnel are to use decision tables to locate the 


problem. 


Information for surveillance purposes can come from a 
variety of sources: management information systems (MIS), 
random sampling, checklists, and formal customer 
complaints. Of these four methods, the most commonly 
applied is random sampling as it does not require the 


inspection of each individual job. 


Using a random sampling technique, Quality Assurance 


personnel sample the services provided by the contractor 


(or the same services conducted in-house [Ref. 7: рр. 
A-1]) in order to determine if these services are accep- 
table. This type of surveillance sampling is called 


acceptance sampling and is used to determine whether to 


accept or reject the contractor s performance "oven Б 


given period of time. In this case, management Ьу 
exception is utilized in that if the сопЕкаскок 
performance is accepted, no action is taken. Should the 
contractor s performance prove unsatisfactory, certain 


actions are taken, depending on the severity and duration 


of unsatisfactory performance. These actions range from 
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discussions of ways and means of correcting the problem, 
through deducting a certain portion of the contractor 5 
remuneration for each lot found unacceptable, to finally 


terminating the contract for default. 


The procedure ccwdeductrng! a —portron Of the 
contractors pay is termed deduct analysis. Deduct 
analysis is performed whenever the contractor sS 
performance for a given day falls below the AQL. Іп this 
case, the contractor s fee for the day in question is 
reduced by а percentage equal to the percentage of 
samples which were found to be defective. For instance: 
assume that for a lot size of 100, 20 samples were drawn; 
of these twenty samples, 5 were found to be defective. 
These 5 samples represent 25 percent of the total samples 
drawn. Assuming that this number represents an 
unacceptable level of performance (as specified in the 
contract), the Commercial Activities manager will deduct 
memepercent of the contractor s fee for the day іп 


question. 


As specified in OFPP 4, "The basis for doing random 
sampling is MIL-STD-105D, Sampling Procedures and Tables 
for Inspection by Attributes which is widely understood 
and used by both the government and contractors." This 


Standard 1s based upon the concept of attributes. An 
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attribute is a feature of a service which eiche | - —— 


Or fails to паса а= сапа акаси 


D. DISCUSSION OF Л Б = ОЕ 

Sampling Procedures and Tables for Inspection и 
Attributes  (MIL-STD-105D) [Appendix A] is the current 
version of standard military sampling procedures for 
inspection by attributes first developed during World War 
II. The standard was adopted as a joint service standard 
in 1950, and was modified twice before discussions with 
the British and Canadian forces which yielded 105D, 
issued Бу the U.S. in 1963. та 1971 МТО В И 
adopted by the American National Standards Institute, 
becoming ANSI Standard Z 1.4, followed by adoption by the 
International Standards Organization ii 19 as 


International Standard ISO/DIS 2859. 


In order to implement the tables in MIL-STD-105D r 


decisions are normally made prior to utilization; 


1. The AQL or acceptable quality level, 

2. The inspection level, 

3. The lot size, and 

4. The type of sampling plan (Single, double SS 


multiple) 
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Ше ЕаЕТО ОИЕ Бог апу Utilization of MIL-STD-105D 
is the determination of what proportion of defectives (as 
given in MIL-STD-105D) is acceptable to the user. "This 
proportion of defectives is called the acceptable quality 
level or AQL. mene (Ола ем Control and Industrial 
tistics Ref. 8: pp. 209 -245], Duncan states, 

ТЕ is expected that the supplier will ре 

submitting for inspection a series of lots of 

Бо ЕОс, апа тс тв the purpose of the 

sampling procedures of Mil. Std. 105D so to 

constrain the supplier that he will produce 

product of at least AQL quality. This is done 

not only through the acceptance and rejection of 

a particular sampling plan but by providing for 

a shift То another, tighter sampling plan 

whenever there is evidence that the contractor 's 

product has deteriorated from the agreed upon 

AQL. 
There is the further provision to shift to another, 
reduced sampling plan should the contractor consistently 
produce superior product. This shift to the reduced 
sampling plan, unlike the shift to the tightened plan 
described above by Duncan is not mandatory, but is 
accomplished at the user's option. тре OD = аге 
Presented іп JMIL-STD-105D as fraction-defective plans 


from 40.01 to 10.0 percent and as defects-per-unit plans 


from 0.01 to 1000 defects per 100 units. 


MIL-STD-105D provides for seven inspection levels, 
which vary depending on the degree of discrimination 


required: the more discrimination, the more samples are 


ша 


needed. Among the three general levels, Level I is used 
where reduced discrimination is acceptable; Level II is 
the normal inspection level; finally, Level III is 


utilized where increased discrimination in required. 


Given ап АОГ, an inspection level, lot size, and 
whether single, double, or multiple inspections are to be 
done, MIL-STD-105D provides a sampling plan. The plan may 


be normal, reduced, or tightened as results dictate. 


Sampling starts with normal inspection. If two out of 
five consecutive lots are found to be unsatisfactory оп 
original inspection, MIL-STD-105D mandates a shift to 
tightened inspection. Normal inspection is re-instituted 
from tightened inspection when five consecutive lots are 
accepted on original inspection. Should ten consecutive 
lots fail initial inspection from tightened inspection, 


inspection is suspended, and corrective action taken. 


When in normal inspection, should ten lots be accepted 
on initial inspection the administrator in charge of 
quality assurance may opt to shift to reduced inspection. 
Inspection remains in the reduced mode until a lot fails 
inspection, or alternatively passes inspection, but the 
number of rejected units is relatively large. In either 


case, inspection shifts back to normal inspection. 


20 


E. BACKGROUND SUMMARY 
At this point, the status of this study is summarized 


as follows: 


1. NARDAC San Francisco is a central ADP facility 
providing a variety of computing services to customers 


at several geographic locations. 


2. NARDAC is in continuous operation, completing an 


average of ten thousand jobs daily. 


BENDER DAC 1G 8sctartea by military and Civil “service 


employees. 


4. Higher authority has mandated that a cost 
comparison study be conducted in accordance with OMB 
Circular No.  A-76 in order to determine if  NARDAC s 
operations will remain in-house or will be contracted 
out о с ар ег Етасеог "5119 government 


furnished equipment and supplies. 


EXE echeUNUSd Operation Of commercial activities by 
the government is allowed by OMB Circular No. A-76 if 
the government can operate those activities at a 


lower cost than qualified civilian contractors. 


Em orccr FO CNSure that any Contractor performing 


commercial services under the auspices of OMB Circu- 
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lar Мо.  A-76 is meeting his contractual obligations 
regarding timeliness and quality of producer 
Supplement I to OMB Circular No. A-76 mandates that a 
quality assurance and surveillance program be 
developed and operated by CA personnel. This program 
is to be designed and conducted in accordance with 


ОВ ВЕНА 


7. While several methods for the conduct of quality 
assurance programs аге delineated in OFPP 4, the 
statistical method is most widely used as it does not 
require examination of all the contractor s product. 


The statistical methods specified in ОЕРР 4 are 


contained in MIL-STD-105D, which is widely used ame 
understood by both government agencies and 


contractors. 


8. MIL-STD-105D is based on the random sampling eee 
events for specified attributes. Before the standard 
can be utilized, the user must determine what 
proportion of defective performance he can tolerate 
and then specify that as an AQL. The AQL becomes, in 
effect, the contractor s ‘target’; he must perform to 
at least that standard of excellence in order to 
receive full remuneration for his efforts.  Further- 


more, the contract administrator must decide вом пиеш 
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discrimination his sampling must effect and whether 
each sample will be inspected once, twice, or more. 
Normally, the lot size must also be decided upon аз 


well. 
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III. [IMPLEMENTATION OF MIL-STD-TO05D АТАКА a 


о e M M — — — — — PL 


SAN FRANCISCO 


Material in this chapter is taken from a series of 
discussions with Mr. А! Hinds, Naval Regional Data 
Automation Command (NARDAC) San Francisco, СА which took 
place from September 1983 through May 1984. Mr. Hinds is 
conducting the Commercial Activities (CA) study for Data 


Processing Services at NARDAC San Francisco. 


A.: DETAILS REQUIRING CLARIFICATION 

Several particulars need be resolved before MIL-STD- 
105D can be implemented as the method of choice for 
quality assurance at a regional data center; many of 


these concern the center’s massive daily output. 


What constitutes a lot? In traditional тапишгас шиши 
where MIL-STD-105D was first implemented, the definition 
of a lot as a given number of pieces of physical property 
could be easily effected. In the world of ADP, any pre- 
defined number may lead to difficulties. These difficult- 
ies arise from the fact that the output of a computer 
center for just one day 1S apt to be both massive and 
variable. During a very slow period, ten thousand units 
may represent several day’s output, while during times of 
peak load, it may not reflect all of one day’s jobs. This 


notion of days is central to the implementation of MIL- 
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STD-105D, as the service contracts mandated by  OMB 
Circular No. А-76 prescribe payment to the contractor in 
terms of a day's efforts. This has led to the definition 
by the project team of a lot as being the output for one 
day's work by the contractor, measured from 0000 to 2359 
local time. While this definition circumvents the 
previously mentioned difficulties, it also causes a few 
new problems; looking at the MIL-STD-105D tables shown in 
Appendix A, Table 1, the Sample Size Code Table shows 
code letters L and M for General Inspection Level II and 
lot sizes of 10,000 and 10,001 respectively. Checking 
Table II-A, the Master Table for Normal Inspection, 
Single Sampling, we see that this table prescribes sample 
Sizes of 200 and 315 samples respectively. While this 
large variability in sample size may result in a high 
degree of variability in the workload of the QA personnel 
conducting the inspections for attributes, the only other 
alternative is worse. That alternative would consist of 
conducting inspections of fixed size, but variable times. 
The deduct analysis wherein the contractor 1s penalized 
for poor performance would, in this case be exceedingly 


difficult to implement. 


unc daily variability in sample size complicates the 
problem of obtaining the correct information from the 


tables. This 15 occasioned due to the fact that ОА 
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personnel must now utilize the entire contents of each 
table instead of just one line because the sample size 


may vary from dayaBe аак 


In the preceding discussion, note that the specific 
attributes which determine whether a sample is accepted 
or rejected are left undefined. As of this writing, the 
Commercial Activities (CA) staff has not specifically 
determined what timeliness or quality standards must be 


met for each of the different classes of jobs. 


Note that in the foregoing discussion it was assumed 
that single, as opposed to multiple sampling would Бе 


utilized. Single sampling has, in fact, been mandated by 


NARDAC San Francisco. 


For the purposes of this application, the CA staff 
could discern no need for either increased nor decreased 
discrimination. For this reason, General Inspection Level 
II (Appendix A, Table I), normal discrimination was 


selected. 


Finally, the CA staff and technical director at NARDAC 
San Francisco determined that the AQL required for 


performance of the contract would po R 5 
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Eee PEF ICULTIES WITH IMPLEMENTING MIL-STD-105D 

In addition to the details covered in the previous 
section, there remain several problems which must be 
overcome prior to the implementation of MIL-STD-105D for 


this application. 


The first problem investigated is the level of 
mu unaung" required to allow MIL-STD-105D to be used on a 
daily basis. In order to properly implement the standard 
and execute the sampling plan, ОА supervisory personnel 


МИН need to become familiar with the mechanics of the 


Standard: how to determine the sample size; how to 
generate random samples; when to shift from one 
inspection level to another; how to determine whether a 


given lot is accepted or rejected; when to hold the 
contractor in default; even which of the tables in MIL- 
STD-105D needs to be used for each of these processes. 
Given the atmosphere of litigation which currently 
surrounds Commercial Activities contracts at other Naval 
facilities, a fairly high level of competence in each of 


these fields is necessary. 


C. IMPLEMENTATION CONSIDERATIONS 


From the preceding discussion, we can see that there 


are several considerations regarding the implementation 
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of MIL-STD-105D for use by NARDAC to monitor Wee c 


performance. 


With the number of samples discussed previously being 
generated every day, it becomes apparent that our system 
must be capable of handling large volumes of data. 
Furthermore, since our hypothetical contractor isn't paid 
until QA personnel evaluate his performance, he may not 
tolerate long delays in the evaluation process. Indeed, 
the NARDAC management and their superiors may want fairly 
rapid resolution of the QA question on an on-going basis. 
Since the inspector s reports become part of a recoma 
base which can have future legal ramifications, the 
system must keep track of a large number of records апа 
be able to access them rapidly. From the preceding 
discussion of the mechanics of MIL-STD-105D, it is 
evident that the system must be not only adaptable, but 
must handle the changing circumstances occasioned by a 
shift in inspection level quickly and accurately. 
Finally, the implementation must be secure from unautho- 
rized access by any person who may be connected with the 
contractor. This is due to the fact that азпгокпа ен 


regarding which samples are to be drawn for inspection is 


extremely sensitive. Should an unscrupulous contractor 
gain access to this information, it is not inconceivable 
that he could, in some manner, alter the record numbers 
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and submit jobs for inspection which he had previously 
checked himself to ensure their correctness and 
timeliness. This would of course, defeat the purpose of 
the random sampling process, as only those jobs he knew 


to be perfect would ever be examined. 


The preceding discussion suggests that some form of 
automated implementation may improve the accuracy with 
which MIL-STD-105D is implemented, as well as aid in the 
retrievability of the information stored. 

И КАСТАТТТЕ5 FOR AUTOMATED IMPLEMENTATION OF MIL-STD- 

1 05D 

The existing ADP facilities at a regional data 
processing center would at first glance appear to offer 
almost unlimited resources БОВ ап automated 
implementation of the project. ШЕИ лш рок про 
remember that the bulk of ADP equipment and programs will 
memunder the direct control of the contractor, however, 
and as such the opportunities for breaching the security 
of the quality assurance system are legion. There remains 
a mainframe computer (which will remain under military 
control even in the event of NARDAC operations being 
placed under civilian contract) and several stand-alone 


microcomputers. 
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There are many advantages to using the mainframe over 
the microcomputer execution speed, CPU power, file 
capacity апа system reliability to name only the most 
obvious. Unfortunately, a security problem remains. While 
the mainframe under discussion remains under military 
control and is physically separate from the ADP 
facilities which would be under the contractor s control, 
it сап be electronically linked to that equipment using 
existing telecommunications procedures. This opens the 
possibility of an unscrupulous contractor using ы 
telecommunications capability to effect the system 


compromise previously discussed. 


The microcomputers currently available at NARDAC are 
Standard Z-80 based, 8-bit machines with 64 kilobytes of 
internal random access memory. The machines are of 
normal commercial manufacture. Most feature two 384 kilo- 
byte 5 1/4 inch floppy minidisk drives for secondary 
storage. There is a library of bundled software which 
accompanies each machine, as well as some add-on software 
packages the command has purchased. Included among these 
is dBASE II, a well known relational database management 


System for microcomputers from Ashton-Tate Software. 
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E. IMPLEMENTATION SUMMARY 
To summarize the implementation strategy thus far, the 


decisions have been made to: 


l. Define a lot as the output of the center for опе 


ux rsen 0000 to 2559.—Tocal time. 


2. Conduct single inspection of samples. 


3. Utilize General Inspection Level II. 


4. Investigate the possibilities of implementing MIL- 
STD-105D on the command s microcomputers, utilizing 


the database management system (DBMS) dBASE II. 


o 


IV.PROJECT SPECLIEIGOQESNE 


A. NARDAC REQUIREMENTS 

Specific requirements for implementing  MIL-STD-105D 
were defined during a series of discussions with  NARDAC 
personnel. These requirements tended to center about 
input and output specifications, questions regarding 
random number generation, and overall project 
feasibility. NARDAC 5 system specifications are 


summarized below: 


l. The system as implemented must generate its own 
random numbers for sample selection. As a corollary to 
this requirement, it was mutually decided upon that 
there would be no transparent "Seed" or starting point 
to be input which would be subject to manipulation. A 
secret or hidden seed was deemed acceptable. The 
random numbers are to be used to notify which jobs are 


to be inspected. 


2. The system must store the results of the inspection 
process for future use. Storage on floppy disk was 
judged to be satisfactory for this requirement. 
Furthermore, data stored on the disks must be 
available ina variety of formats, not all of which 


are presently known. 


2 


3. The system inself must be adaptable to future 
change without undue difficulty in reprogramming 
effort. For instance, as new formats for data become 
known, the system should be capable of responding with 
modular eu DUE formats with litere system 
perturbation. Other contemplated changes in the system 


will be discussed later in this work. 


4. The system must be usable by individuals not 
necessarily computer literate, or at least be usable 
with a Minimum of training. The system must 
communicate with the users in plain English, not 


"computerese". 


5. In its initial form the system must generate report 
forms for the quality assurance inspectors to fill out 
for each job to be sampled. There are two such forms, 
one for the inspection of the job's timeliness and 
one for the job's quality. The timeliness report is 
used for every job, while the quality report is used 
BOE those jobs having actual physical output. When the 
system is fully implemented, it is anticipated that 
pre-printed report forms will be obtained and the 


only input to them will be the sample identification. 


6. The jobs selected for sampling will be identified 


by a composite identification number called an 


Эз 


Inspection Requirement Report or IRR. The IRR shall 
consist of the Julian date the job was completed in 
the format YYDDD (January 20, 1984 would therefore be 
84020), the local time the job was completed in 
twenty-four hour notation and the job’s record number, 


for instance: 84020 L345 ASG 


7. The system must be able to input inspection results 


from any day previously specified. 


Se The system must analyze the results of the 
inspection process in accordance with MIL-STD-105D and 


make available the following information: 


(A). The inspection level recommended for the 


current day's inspection plan, 


(B). The random samples to be inspected, 


(C). Whether to accept or reject the contractor s 


efforts for the day in question, and 


(D). The inspection level recommended for the next 


day's efforts. 


9. Should the contractor s efforts be rejected, the 
System must conduct deduct analysis to determine the 
amount to be deducted from his compensation for the 


day in question. In the event the contractor Пав 
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failed ten successive days in tightened inspection, 
the system should notify QA personnel that inspection 
is to be discontinued in accordance with MIL-STD-105D 


s; that the contractor is in default. 


This analysis should include all elements of MIL-STD- 
105D given the decisions summarized in Chapter III, 


seccion E СЕ ТІГІС thesis. 


B. ADDITIONAL REQUIREMENTS 


In response to some of the reguirements specified by 
NARDAC in the preceding section, and as coding of the 
project progressed, some additional system requirements 


became known. 


1. Design of the program must be modular in order to 


allow for system maintenance and modification. 


2. The system must be menu-driven to allow operation 
by personnel who are not familiar with ie 5 
programming. 


3. Since the lot size is determined by the size of one 
fea, Se Output, the date, expressed in Julian terms, 
will be a major system key, whereby several decisions 
are made during system operation. In this sense, the 


system can be said to be "date-driven". 
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4. Security is to be effected by the use of stand- 
alone microcomputers, whose only connection with the 
contractor will be via modems; such connection is to 
be completed only Бу ОА personnel and terminated 
immediately upon receipt of the desired information 
(lot size and record identification numbers). Since 
these Microcomputers at NARDAC San Francisco can be 
made physically secure, and access to them and their 
software limited to authorized personnel, it may be 


assumed that they exist in a benign environment. 


5. The total day's run for each day would not reside 
in microcomputer files; rather, such Ел | ез m 
contain only those samples selected for inspection and 


the results of the inspection process. 
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VS SSG TEN DESIGN 
E DESIGN METHODOLOGY 
The basic design methodology used in the design of the 
system was the modified version of stepwise refinement 
(or top-down design) described by Sommerville [Ref. 9: 


pp. 38-77]. Briefly, the steps included: 


1. Study and understanding of the problem, 


2. Identification of the gross features of at least 
one possible solution, with no consideration of low- 


level implementation details, 


3. Construction of a data flow diagram showing gross 


data transformations in the system, 


4. Construction of structure charts showing the 


program units involved in the solution, and 


5. Modular implementation of the program units in the 


programming language. 


Following the notational system presented by Modes [Ref. 
EDT, data-flow diagrams апа structure charts меке 
combined as one unit and expanded as necessary to achieve 
clarity of design. After validation and verification of 
system feasibility, program coding in the programming 


language began. 


7 


B. DESIGN RESULTS НИЗУ TEN ЕЕЕ 

The data-flow diagrams for the system are presented in 
Appendix B. The system overview is shown as Figure 1. The 
results are summarized below and will be discussed in 
detail in the sections dealing with the first expansion 
of the system design. At this point in the design phase 
the system was named the Automated Quality Assurance 


System (AQAS). 


1. Examination of the system overview shows the 


following system inputs: 


(A). Date. Date is entered in the Vie 


notation previously described. 


(B). System Commands. There are several of these, 


defining the systems operation. 


(C). Sample Information. Information needed to 


compute the random samples. 


(D). Sample Designation and Inspection Results. 


From the Input module. 


2. The following system outputs are generated. 


(A). Menu messages, notifying the user of system 
actions enabling the user to input needed informa- 


tion and to output results. 


38 


E OT DIE NIS, aA i sting of the Jobs to be 


inspected. 
(C). Timeliness Report Forms, one per job. 


(D). Quality Report Forms, one per job where there 


is actual physical output. 


(E). Error messages as needed. 


(F). Inspection results as either a current status 


report, Or a termination report. 


SS DESIGN RESULTS, FIRST EXPANSION 

The first design expansion of the Automated Quality 
Assurance System (Appendix B, Figure 2) shows the inter- 
relationships between the principal system modules and 
their major inputs and outputs. The principal system 
fables are Main, Select, Input, Analyze, and Utility 
with the Main module the central module of the system, 


from which all subordinate modules depend. 


The Main module (or Main Menu) [Fig. 2] is automati- 
ENS called from Sinon (itself automatically called when 
initializing the system). Sinon is nothing more than a 
welcome screen. Main is the module which calls the other 
modules and to which they default upon completion of 


their tasks. Note that in each case, the subordinate 
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modules are called by a simple command, with no memory 
variables being used. This is to preserve the modularity 
of the system and to increase system flexibility in terms 
of dealing with more than one date per subordinate module 
call. The date is a major system delimiter, as will be 


seen shortly. 


Select [Fig. 2] is, in many respects, the "heart" of 
AQAS. It is here that the entire problem of random number 
generation and sample selection is solved. Seen for the 


first time in Select is Setjuln, the module which allows 
input of the date in question. Setjuln will be seen in 
several modules as the program develops. After the user 
defines the date with Setjuln, Select informs him of the 
recommended inspection level (Rcmdinsp), asks him for the 
number of events (in this discussion, events equate to 
jobs) and finally, what inspection level is to be used. 
Note that the system does not mandate the inspection 
level for the day, since the shift to reduced inspection 
is both a function of MIL-STD-105D and management орг” 
After receipt of this information, Select calls Sampgen 
which states the number of samples to be taken in 
accordance with MIL-STD-105D and stores this 1пЕокша от 
to a memory variable. Select then calls "Bandgen ss 
generate "random" numbers. The numbers generated are 


actually pseudorandom in that there is an arithmetic 
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= te er, 


algorithm which produces them from a hidden value, or 
seed [Ref. 11: pp. 184]. Randgen then compares the random 
number generated with the number of events to determine 
the event number to be inspected.  Randgen ensures that 
the event number is unique before storing it to a data- 
base file. After Randgen has completed this cycle as many 
times as there are samples to be taken, it returns to 
Belect. Select then calls Notify which indexes the event 
numbers (puts them in numerical order) and prints a list 
giving the day's Julian date and a list of the event 


numbers to be sampled. Notify returns to Select, which in 


ел returns to Main. 


The next module normally called by the user would be 
НИШ (Ела. 4]. Input has two functions: to input to a 
database file all the events selected for inspection, 
then ina separate action, to input the results of the 
inspection process. This is accomplished first by calling 
a subordinate module called Sampspec which  accomplishes 
the first action, then when all samples have been entered 
for the specified day, the user may opt to input 
inspection results. This is accomplished through the 
Inspres module which allows the user to define the sample 
for which he is inputting inspection results, then 
allows the user to input the inspection results. The 


inspection results include the site where the product was 
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delivered, whether the sample passed the timeliness 
inspection and, if not, whether this was the result of a 
failure of the computer system or of the government, 
whether the sample passed the quality inspection and, if 
not, was the problem one of accuracy of results or of 
print quality. When the user has completed his input 
actions, he returns to Main. Note that in each of these 


modules, it is possible to specify the date with Set julie 


The next module is the sequence is the Analyze module 
[Fig 5.] which takes data previously input, and analyzes 
it. The first thing this module does upon execution is to 
run a version of Setjuln called Analyze.Fmt. Analyze ш 
performs the same functions as Setjuln, but also displays 
a message to the user regarding system operation at this 
time. After getting the date to be analyzed from the 
user, Analyze automatically steps through several suberdas 
inate modules. The first of these is Sampchek which 
ensures that all samples for the specified date have been 
entered. It then checks to ensure that all reports 155 
all samples have been entered. If either a sample or a 
report has been omitted, Sampchek displays ап error 
message and returns the user to Input to input the 
missing information. Assuming that there is no missing 
data, the next module from Analyze is Sampanal which 


determines whether to accept or reject the сода они 
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Соке Тот (Пе дау іп question in accordance with MIL- 
I105. In addition to making this determination, the 
system also determines the recommended inspection level 
for the next day in the case where the M GNE day s 
inspection was conducted under the reduced inspection 
level. This is done at this time because only at the 
reduced inspection level does the possibility exist for 
both the lot to be accepted, and the inspection level to 
become more stringent, 1.е.: go from reduced to normal. 
Because this decision is based on the number of samples 
failing inspection it is logical to place this determ- 


Wu con at this location. 


Пи пета паша  пагнсотрјетеа апа returned to Analyze, 
that module calls Inspanal. Inspanal's purpose is to 
determine the recommended inspection level in the cases 
where the current day's inspection was conducted in the 
normal or tightened mode. “his is not done in the same 
manner as this same determination for the reduced 
inspection just discussed because its operation under 
MIL-STD-105D is different and to include this relatively 
lengthy step for each case in Sampanal would make for a 


very inefficient program.  Inspanal performs the same 


functional task, however, returning a value for the 
recommended inspection level for the next day s 
inspection efforts. After completing this task, it too 
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returns to Analyze, which now calls Insprpto пар ни 


sole function is to output one of two messages:  Statrpt 
reports to the user the date just analyzed, the number of 
samples, the number of samples failing inspection, the 
number of jobs processed by the contractor, what the 
experienced failure rate is, what the results of the 
inspection were (accepted or rejected), and the recommen- 
ded level for the next day’s inspection efforts. Termrpt 
notifies QA personnel that samples from ten previous days 
have failed inspection, and that sampling should be 


stopped and the contract terminated. 


The last module to be discussed is the Utility посне 
[Fig. 6], which currently consists solely of a program 
stub, as the exact format of additional reports is 
unknown. Utility provides expansion space to allow for 


the development of custom reports. 


44 


КУЛИ ТЕМ CODING 


A. INTRODUCTION TO dBASE II 


dBASE I is a relational database management system 





for microcomputers. Originally developed as VULCAN Бу 
Wayne Ratliff at Caltech’s Jet Propulsion Laboratory, the 
System is currently marketed commercially by Ashton-Tate. 
CSS ІІ requires the following hardware and software 


font iguration: 


1. 8080, 8085, or Z-80 based microprocessor system 
equipped with CP/M, CDOS, or CROMIX operating systems 
or 8086 or 8088 based microprocessor system equipped 


with CP/M-86 or MSDOS operating systems. 
2. 48 kilobytes of memory (RAM). 


3. One or more mass storage devices (minidisks, etc). 


4. A cursor-addressable CRT for full screen oper- 
ations. 
s Soe applications (including AQAS), a text 


printer is required. 


B. dBASE II AS A PROGRAMMING LANGUAGE 


dBASE II presents some aspects of both procedural and 


non-procedural languages in that it supports structured 
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programming, while at the same time allowing unstructured 
programming practices. This is a mixed blessing as it 
tends to allow marginal programs to run acceptably, while 


preventing the benefits in error correction that true 


structured programming possesses. If good programming 
practices are followed, however, 1% does support ѕігис- 
tured, modular programming. Aside from some limitations 


on file, record, field and strinq length it is a powerful 
database management system  (DBMS). There are foui 
disadvantages to its use, however. In no way could one 
consider dBASE II to be a real-time system. In (пе МАБ 
implementation (Morrow MD-3 microcomputers) the average 
time required to generate 200 samples for 10,000 events 
was two and one half minutes. Secondly, it supports only 
very elementary mathematics. This presented a limitation 
to the implementation of AQAS in that many of the pseudo- 
random number generators rely heavily on the use of 
logarithms. Third, the Яаосппептаттот тос Geach ни 
poor, at best. Massive in scope, it still fails to 
present all the power of the language. The system manual 
[Ref. 12] accompanying the software appears to be written 
for someone who is thoroughly conversant with the 
language and has no need for the documentation.  Ashton- 
Tate seems to be relying on after-market documentation to 
explain the system to its users [Refs. 13 and 14]. 


Finally, customer ӘЗШЕБШСІ E from Ashton-Tate was 
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insufficient, consisting of advice to purchase an after- 
market tutorial to explain the system to the programmer 
[Ref. 14]. These considerations notwithstanding, dBASE II 


proved adequate for the implementation of AQAS. 


Ша CODING AQAS 


The actual task of programming the Automated Quality 
Assurance System went smoothly. The entire system code is 
included as Appendix C. There follow some remarks 
regarding matters which arose during the course of 


programming. 


One of the difficulties encountered was in ensuring 
that the random numbers generated in Randgen were unique. 
For instance, given a lot size of 4 and a sample size of 
2, a program which calls for inspecting item 3 twice 15 
met, functioning properly. Ensuring that the program 


ша not do this took considerable effort. 


Another feature that took a considerable effort to 
effect was the inclusion of a memory variable ina report 
шиш. REPORT is a function of dBASE Ii which allows for 
the output of database information in а pre-specified 
format. This was one area where Ashton-Tate’s poor 
documentation and poorer customer service were 


particularly irksome. Neither the system manual пог 
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repeated telephone calls to Ashton-Tate resolved tn 
relatively simple matter. The final solution to the 


problem was provided by NARDAC personnel. 


While the benefits of a menu-driven system for non- 
technical users are evident, the fairly slow nature of 
the input process using a menu system is annoying. While 
there exists no easy solution for this problem, this 15 


one area in AQAS that would benefit from further study. 


48 


VII. EVALUATION 


CREC ONCLUSIONS 

AQAS was successfully implemented using the methodo- 
logy, equipment, and software described previously. The 
design allows the quality assurance administrator to 
utilize  MIL-STD-105D on a continuing basis with no fear 
of making mistakes in implementation, at the same time 
permitting any user to generate random samples, input 


data and analyze results. 


Although this system was tailored to the application 
Beculiar to NARDAC, San Francisco, it remains applicable 
to other NARDACS contemplating converting operations to 
commercial service contracts under OMB Circular No. A-76. 
Furthermore, it remains in essence nothing but ап 
automated form of  MIL-STD-105D with input and report 


generation capabilities tailored to a specific applica- 


tion. As such, given its modular design and documenta- 
tion, it should be reasonably easy to convert to other 
applications requiring statistical quality Control 


Merlizing MIL-STD-105D. 


B. RECOMMENDATIONS 
As with any software project, the software designer 
can always find modifications and enhancements he would 


like to implement, and AQAS is no exception. The system 
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needs more error handling routines; the option should 
exist for the user to exit from the menu driven min m 
mode and input results more directly in order to 
facilitate the input process; andthe utility programs 
need to be defined and effected. To the end users are 


left these exercises. 


C. NOTES TO USERS 


l. The format  FILENAME.CMD is used when dBASE ІІ is 
implemented оп а microcomputer using the CP/M operating 


System. For users wishing to utilize 16 bit architectures 


the format is FILENAME.PRG. 


2. The random number generator found іп Randgen has been 
modified somewhat from its presentation in this work to 
preclude its access by unauthorized personnel. While the 
function remains the same, a "confuser" has been added so 
that the values of seed are not so straightforward E 


appear here. 


3. Тһе CP/M operating system as modified by Morrow for 
use in their MD3 microcomputers allows for over 120 
dictionary entries, far more than the 64 entries allowed 
by unmodified versions of CP/M. End users may need to 


either modify similarly their versions of CP/M or merge 
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some of the files in AQAS to enable their systems to 


accept its several modules. 


4. AS this program was developed for NARDAC San 
Francisco, inquiries regarding AQAS implementation may be 
addressed to : 

Commanding Officer 

NARDAC San Francisco 

Building 8-1, Code 50X 

NAS Alameda, CA 94501 


Attn: Mr. Al Hinds 
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SAMPLING PROCEDURES AND TABLES 
FOR INSPECTION BY ATTRIBUTES 


«20у» 


1. 


3.1 PURPOSE. This publication estab- 
5shes sampling plans and procedures for 
inspection by attributes. When specified by 
the responsible authority, this publication 
shall be referenced in the specification, con- 
tract, inspection instructions, or other docu- 
ments and the provisions set forth herein 
shall govern. The "responsible authority" 
shall be designated in one of the above 


documents. 


1.2 APPLICATION. Sampling plans des- 
ignated in this publication are applicable, but 
not limited, to inspection of the following: 


a. End items. 

b. Components and raw materials. 
c. Operations. 

d. Materials in process. 

e. Supplies in storage. 

f. Maintenance operations. 

2. Data or records. 

n. 


Administrative procedures. 


These plans are intended primarily to ve 
used for a continuing series of lots or batches. 


SCOPE 
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The plans may aiso be used for the inspection 
of isolated lots or batches, but, in this latter 
case, the user is cautioned to consult the 
operating characteristic curves to find a plan 
which will yield the desired protection (see 
11.6). 


1.3 INSPECTION. Inspection is the proc- 
ess of measuring, examining, testing, or 
otherwise comparing the unit of product (see 
1.5) with the requirements. 


1.4 INSPECTION BY ATTRIBUTES. In- 
spection by attributes is inspection whereby 
either the unit of product is classified simply 
as defective or nondefective, or the number 
of defects in the unit of product is counted, 
with respect to a given requirement or set 
of requirements. 


1.5 UNIT OF PRODUCT. The unit of 
product is the thing inspected in order to 
determine its classification as defective or 
nondefective or to count the number of de- 
fects. It may be a single article, a pair, a set, 
a length, an area, an operation, a volume, a 
component of an end product, or the end 
product itself. The unit of product may or 
may not be the same as the unit of purchase. 
supply, production, or shipment. 


2. CLASSIFICATION OF DEFECTS ANDO DEFECTIVES 


2.) METHOD OF CLASSIFYING DEFECTS. 
A classification of defects is the enumeration 
of possible defects of the unit of product 
classified according to their seriousness. A 
defect is any nonconformance of the unit of 
product with specified requirements. Defects 
will normally be grouped into one or more 
of the following classes; however, defects 
may be grouped into other classes, or into 
subclasses within these classes. 


2.1.1 CRITICAL DEFECT. A critical de- 
fect isa detect tha judgment and experience 
indicate is-likely to result in hazardous or 
unsafe conditions for individuals using, 
maintaining, or depending upon the product; 
or a detect that judgment and experience 
indicate is likely to prevent performance of 
the tactical function of a major end item sucn 
as a ship, aircraft, tank, missile or space 
vehicle. NOTE: For a special provision re- 
lating to critical defects, see 6.3. 


2.1.2 MAJOR DEFECT. A major defect 
is a defect, other than critical, that is likely 
to result in failure, or to reduce materially 
the usability of the unit of product for its 
intended purpose. 


2.1.3 MINOR DEFECT. А minor defect 
is a defect that is not likely to reduce ma- 
terially the usability of the unit of product 
for its intended purpose, or is a departure 
from established standards having little bear- 
ing on the effective use or operation of the 
unit. 


2.2 METHOD OF CLASSIFYING DEFEC- 
TIVES. A defective is a unit of product which 
contains one or more defects. Defectives will 
usually be classified as follows: 


2.2.1 CRITICAL DEFECTIVE. A critica! 
defective contains one or more critical de- 
fects and may also contain major and or 
minor defects. NOTE: For a special provi- 
sion relating to critical defectives, see 6.2. 


2.2.2 MAJOR DEFECTIVE. ÁA major dz- 
fective contains one or more major defects, 
and may also contain minor defects but con- 
tains no critical detect. 


2.2.3 MINOR DEFECTIVE. А minor de- 
fective contains one or more minor defecis 
but contains no critical or major defect. 


3. PERCENT DEFECTIVE AND DEFECTS PER HUNDRED UNITS 


3.1 EXPRESSION OF NONCONFORM- 
ANCE. The extent of nonconformance of 
product shall be expressed either in terms 
of percent defective or in terms of defects per 
hundred units. 


3.2 PERCENT DEFECTIVE. The percent 
defective of any given quantity of units of 
product is one hunderd times the number of 
defective units of product contained therein 
divided by tne total number of units of prod- 
Ше 16: 


Number of defectives 


Percent defective = Number of umts inspected * 100 


3.3 DEFECTS PER HUNDRED UNITS. The 
number of defects per hundred units of any 
given quantity of units of product is one 
hundred times the number of defects con- 
tained therein (one or more defects being 
possible in any unit of product) divided by 
the total number of units of product, ie.. 


Number of defects 
= Number of units inspectea 


Derects per 


^x 190 
hundred units 


Du 


4. ACCEPTABLE QUALITY LEVEL (AQL) 


4.1 USE. The AQL, together with the 
Sample Size Code Letter, is used for index- 


ing ine sainpling plans provided herein. 


4.2 DEFINITION. The AQL is the max- 
imum percent defective (or the maximum 
number of defects per hundred units) that, 
for purposes of sampling mspection, can be 


considered satisfactory as a process average 
(see 11.2). 


43 NOTE ON THE MEANING OF AQL. 
When a consumer designates some specific 
value of AQL for a certain defect or group 
cf defects, he indicates to the supplier that 
his (the consumer's) acceptance sampling 
plan will accept the great majority of ihe lots 
or batches that the supplier submits, pro- 
vided the process average level of percent 
defective (or defects per hundred units) in 
tnese lots or batches be no greater than the 
designated value of AQL Thus, the AQL 
is a aesignated value of percent defective (or 
deiects per hundred units) that the consumer 
indicates will be accepted most of the time 
by the acceptance sampling procedure to be 
used. The sampling plans provided herein 
are so arranged tnat tne probability of ac- 
ceptance at the designated AQL value de- 
pends upcn the sample size, being generally 
higher for large samples than for small ones, 
for a given AQL. The AQL alone does not 


5. SUBMISSION 


5.1 LOT OR BATCH. The term lot or 
batch shali mean "inspection lot" or "inspec- 
tion batch," i.e., a collection of units of prod- 
uct from which a sample is to be drawn and 
inspected to determine conformance with the 


acceptability criteria, and may differ from a 
collection of units designated as a lot or batch 
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describe the protection to the consumer for 
individual lots or batches but mure directly 
relates to what might be expected from a 
series of lots or batches, provided the steps 
indicated in this publication are taken It is 
necessary to refer to the operating character- 
istic curve of the plan, to determine what 
protection the consumer will have. 


4.4 LIMITATION. The des:gnation of an 
AQL shall not imply that the supplier has 
the right to supply know iuigly any defective 
unit. of. product 


4.5 SPECIFYING AQis. The AQL. to Dë 
used will be designated .n the contract or by 
the responsible authority. Different AQLs 
may be designated for groups of defects con- 
sidered collectively, or for individual defects. 
An AQL for a group of defects may be des- 
ignated in addition to AQLs for individual 
defects, or subgroups. within that group. 
AQL values of 10.0 or less inay be expressed 
either in percent defective or in defects per 
hundred units; those over 10.0 shall be ex- 
pressed in defects per hundred units only. 


4.6 PREFERRED AQts. The values of 
AQLs given in these tables are known as 
preferred AQLs. lf, for any product, an AQL 
be designated other than a preferred AQL, 
these tables are not applicable. 


OF PRODUCT 


for other purposes (eg. production, ship- 
тепе еш J 


5.2 FORMATION OF LOTS OR BATCHES. 
The product shall be assembled into identi- 
fiable lots, sublots, batches, or in such other 
manner as may be prescribed (see 5.4). Each 
lot or batch shall, as far as is oracticable, 


5. SUBMISSION OF PRODUCT (Continued) 


consist of units of product of a single type, 
grade, class, size, and composition, manu- 
factured under essentially the same condi- 
tions, and at essentially the same time. 


5.3 LOT OR BATCH SIZE. The lot or 
batch size is the number of units of product 
in a lot or batch. 


5.4 PRESENTATION OF LOTS OR 
BATCHES. The formation of the lots or 


batches, lot or batch size, and the manner 
in which each lot or batch is to be presented 
and identified by the supplier shall be des- 
ignated or approved by the responsible au- 
thority. As necessary, the supplier shall 
provide adequate and suitable storage space 
for each lot or batch, equipment needed for 
proper identification and presentation, and 
personnel for all handling of product re- 
quired for drawing of samples. 


6. ACCEPTANCE AND REJECTION 


6.1 ACCEPTABILITY OF LOTS OR 
BATCHES. Acceptability of a lot or batch 
will be determined by the use of a sampling 


plan or plans associated with the designated 
AQL or AQLs. 


6.2 DEFECTIVE UNITS. The right is re- 
served to reject any unit of product found 
defective during inspection whether that 
unit of product forms part of a sample or 
not, and whether the lot or batch as a whole 
is accepted or rejected. Rejected units may 
be repaired or corrected and resubmitted for 
inspection with the approval of, and in the 
manner specified by, the responsible au- 
thority. 


6.3 SPECIAL RESERVATION FOR CRITI- 
CAL DEFECTS. The supplier may be required 
at the discretion of the responsible authority 
to inspect every unit of the lot or batch for 


critical defects. The right is reserved to in- 
spect every unit submitted by the supplier for 
critical defects, and to reject the lot or batch 
immediately, when a critical defect is found. 
The right is reserved also to sample, for crit- 
ical defects, every lot or batch submitted by 
the supplier and to reject any lot or batch 
if a sample drawn therefrom is found to con- 
tain one or more critical defects. 


6.4 RESUBMITTED LOTS OR BATCHES. 
Lots or batches found unacceptable shall be 
resubmitted for reinspection only after all 
units are re-examined or retested and all de 
fective units are removed or defects cor- 
rected. The responsible authority shall deter- 
mine whether normal or tightened inspection 
shall be used, and whether reinspection shall 
include all types or classes of defects or for 
the particular types or classes of defects 
which caused initial rejection. 


7. DRAWING OF SAMPLES 


7.1 SAMPLE. A sample consists of one 
or more units of product drawn from a lot or 
batch, the units of the sample being selected 
at random without regard to their quality. 
The number of units of product in the sample 
is the sample size. 


7.2 REPRESENTATIVE SAMPLING. When 
appropriate, the number of units in the sam- 
ple shall be selected in proportion to the size 
of sublots or subbatches, or parts of the lot or 
batch, identified by some rational criterion. 
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7. DRAWING OF SAMPLES (Continued) 


When representative sampling is used, the 
units from each part of the lot or batch shall 
be selected at random. 


73 TIME OF SAMPLING. Samples may 
be drawn after all the units comprising the 
iot or batch have been assembled, or sam- 


8. 


8.1 INITIATION OF INSPECTION. Nor- 
mal inspection will be used at the start of 
inspection unless otherwise directed by the 
responsible authority. 


$.2 CONTINUATION OF INSPECTION. 
Normal, tightened or reduced inspection 
shall continue unchanged far each class of 
defects or defectives on successive lots or 
batchs except where the switching proce- 
dures given below require change. The 
switching procedures given below require a 
change. The switching procedures shall be 


applied to each class of defects or defectives. 


independently. 


8.3 SWITCHING PROCEDURES. 


8.31 NORMAL TO TIGHTENED. When 
normal inspection is in effect, tightened in- 
spection shall be instituted when ? out of 5 
consecutive lots or batches have been re- 
jected on original inspection (i.e., ignoring 
resubmitted lots or batches for this proce- 
dure). 


8.3.2 TIGHTENED TO NORMAL. When 
tightened inspection ıs in effect, normal in- 
spection shall be instituted when 5 consecu- 
tive lots or batches have been considered 
acceptable on original inspection. 


3.3.3 NORMAL TO REDUCED. When 
normal inspection is in effect, reduced inspec- 
tion shall be instituted providing that all of 
the following conditions are satisfied: 
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ples may be drawn during assembly of the 
lot or batch. 


7.4 DOUBLE OR MULTIPLE SAMPLING. 
When double or multiple sampling is to be 
used, each sample shall be selected over the 
entire lot or batch. 


NORMAL, TIGHTENED AND REDUCED INSPECTION 


a. The preceding 10 lots or batches (or 
more, as indicated by the note to Table VIII) 
have been on normal inspection and none 
has been rejected on original inspection; and 


b. The total number of defectives (or de- 
fects) in the sampies from the preceding 10 
lots or batches (or such other number as was 
used for condition "a" above) is equal to or 
less than the applicable number given in 
Table VIII. If double or multiple sampling 
is in use, all samples inspected should be in- 
cluded, not "first" samples only; and 


c. Production is at a steady rate; and 


d. Reduced inspection is considered de- 
sirable by the responsible authority. 


8.3.4 REDUCED TO NORMAL. When re- 
duced inspection is in effect, normal inspec- 
tion shall be instituted if any of the following 
occur on original inspection: 


a. A lot or batch is rejected; or 


b. A lot or batch is considered acceptable 
under the procedures of 10.1.4; or 


c. Production becomes irregular or de- 
layed, or 


d. Other conditions warrant that normal 
inspection shall be instituted. 


8.4 DISCONTINUATION OF INSPECTION. 
In tHe event that 10 consecutive lots or 
batches remain on tightened inspection (or 
such other humber as may be designated by 
the responsible authority), inspection under 
ihe provisions of this document snould be 
discontinued pending action to irnprove the 
quality of submitted material. 





9. SAMPLING PLANS 


9.1 SAMPLING PLAN. А sampling plan 
indicates the number of units of product 
from each lot or batch which are to be in- 
spected (sample size or series of sample 
sizes) and the criteria for determining the 
acceptability of the lot or batch (acceptance 
and rejection numbers). 


9.2 INSPECTION LEVEL. The inspection 
leve! determines the relationship between 
the lot or batch size and the sample size. The 
inspection level to be used for eny particular 
requirement will be prescribed by the re- 
soonsibie authority. Tnree inspection levels: 
I, li, and Ili, are given in Table I tor general 
uSe. Uniess otherwise specified, inspection 
Level Ii will be used. However, Inspection 
Level i may be specified when less discrimi- 
nation is needed, or Level III may be speci- 
fied jor greater discrimination. Four addi- 
попа: зоес1а] 1еуе15: 5-1, 5—2, 5—3 апа 5-4, 
are given in tne same table and may be used 
wriere relatively small sample sizes are neces- 
sary and large sampling risks can or must be 
toleratec. 


NOTE: In the designation of inspection 
levels S-1 {о 5—4, саге must be exercised to 
avoid AQLs inconsistent with these inspec- 
tion levels. 


9.3 CODE LETTERS. Sample sizes are 
designated by code letters. Table I shall be 
used to find the applicable code letter for the 
particular lot or batch size and the prescribed 
inspection leve:. 


9.« OBTAINING SAMPLING PLAN. The 
AQL and the code letter shall be used to ob- 


tain the sampling plan from Tables II, III or 
IV. When no sampling plan is available for a 
given combination of AQL and code letter, 
the tables direct the user to a different letter. 
The sample size to be used is given by the 
new code letter not by the original letter. If 
this procedure leads to different sample sizes 
for different classes of defects, the code letter 
corresponding to the largest sample size de- 
rived may be used for all classes of defects 
when designated or approved by the respon- 
sible authority. As an alternative to a single 
sampling plan with an acceptance number 
of 0, the plan with an acceptance number o: 1 
with its correspondingly larger sample sizs 
for a designated AQL (where available), may 
be used when designated or approved by the 
responsible authority. 


9.5 TYPES OF SAMPLING PLANS. Three 
types of sampling plans: Single, Double and 
Multiple, are given in Tables II, III and IV, 
respectively. When several types of plans are 
available for a given AQL and code letter, 
any one may be used. A decision as to type 
of plan, either single, double, or multiple, 
when available for a given AQL and code 
letter, will usually be based upon the com- 
parison between the administrative difficulty 
and the average sample sizes of the available 
plans. The average sample size of multiple 
plans is less than for double (except in the 
case corresponding to single acceptance num- 
ber 1) and both of these are always less than 
a single sample size. Usually thé administra- 
tive difficulty for single sampling and the 
cost per unit of the sampie are less tnan-t¢ 
double or multipie. 
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10. 


10.1 PERCENT DEFECTIVE INSPECTION. 
To determine acceptability of a lot or batch 
under percent defective inspection, the ap- 
plicable sampling plan shall be used in 
accordance with 10.1.1, 10.1.2, 10.1.3, 10.1.4, 
and 10.1.5. 


10.1.1 SINGLE SAMPLING PLAN. The 
number oí sample units inspected shall be 
equal to the sample size given by the plan. 
If tne number of defectives found in the 
sample is equal to or less tnan the acceptarQe 
number, the lot or batch shall be considered 
acceptabie. If the number of defectives is 
equai to or greater tnan the rejection num- 
ber, tne lot or batch shall be rejected. 


1С.1.? DOUBLE SAMPLING PLAN. The 
number of sample units inspected shall be 
equa: to the first sample size given by the 
pian. If the number of defectives found in 
tne first sample is equal to or less than the 
fret acceptance number, tre lot or batch 
са! се considered acceptable. If the num- 
wer of detectives found in the first sample is 
exuai to or greater than the first rejection 
sumber, the lot or batch shall be rejected. 
Lf tae number of defectives found in the first 
scrapie is between the first acceptance and 
rejection numbers, a secand sample of the 
e:e given by the plan shall be inspected. The 


11. 


111: OPERATING CHARACTERISTIC 
CURVES. Tne operating cnaracteristic curves 
tec normal inspection, shown in Table X 
(ресес 30-62), ілдесіе the percentage of 
bets ec batches which may be expected to be 
eecestes. under the various sampling plan: 
vec а ewan Srocess quality. Tne curves snown 
ere ис шаси sampling; curves for доо 
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DETERMINATION OF ACCEPTABILITY 


number of defectives found in the first and 
second samples shall be accumulated. If the 
cumulative number of defectives is equal to 
or less than the second acceptance number, 
the lot or batch shall be considered accept- 
able. If the cumulative number of defectives 
is equal to or greater than the second rejec- 
tion number, thelot or batch shall be rejectec. 


10.1.3 MULTIPLE SAMPLE PLAN. Under 
multiple sampling, the procedure shall be 
similar to that specified in 10.1.2, except that 
the number of successive samples required 
to reach a decision may be more tnan two. 


10.1.4 SPECIAL PROCEDURE FOR Rc- 
DUCED INSPECTION. Under reduced in- 
spection, the sampling procedure may termi- 
nate without either acceptance or rejection 
criteria having been met. In tnese circum- 
stances, the lot or batch will be considere? 
acceptable, but normal inspection will p° 
reinstated starting with 'the next iot or 
batch (see 83.4 (b)). 


10.2 DEFECTS PER HUNDRED UNITS IN. 
SPECTION. To determine the acceptability 
of a lot or batch under Defects per Hundred 
Units inspection, the procedure specified for 
Percent Defective inspection above shall be 
used, except that the word “defects” shall be 
substituted for “defectives.” 


SUPPLEMENTARY INFORMATION 


and multiple sampling are matched as closely 
as practicable. The O. C. curves shown for 
AQLs greater than 10.0 are basec on the 
Poisson distribution and are applicable fcr 
defects per hundred units .inspection; those 
tor AQis of 10.0 or less and samole sizes c: 
8C or iess are based оп tne binomiai aistri- 
bution anc are applicabie ior percent deiez- 


11. 


tive inspection; those for AQLs of 10.0 or 
less and sample sizes larger then 80 are based 
on the Poisson distribution and are applica- 
ble either for defects per hundied units in- 
spection, or for percent defective inspection 
(the Poisson distribution being an adequate 
approximation to the binomial distribution 
under these conditions). Tabulated values, 
corresponding to selected values of probabil- 
ities of acceptance (P4, in percent) are given 
for each of the curves shown, and, in addi- 
tion, for tightened inspection, and for defects 
cer hundred units for AQLs of 10.0 or less 
and sample sizes of 80 or less. 


11.2 PROCESS AVERAGE. The process 
average is the average percent defective or 
average number of defects per hundred units 
(whichever is applicable) of product sub- 
mitted by the supplier for original inspec- 
tion. Original inspection is the first inspec- 
tion of a particular quantity of product as 
aistinguished from the inspection of product 
which has been resubmitted aíter prior 
rejection. 


11.3 AVERAGE OUTGOING QUALITY 
(AOQ). The AOQ is the average quality of 
outgoing product including all accepted lots 
or batches, plus all rejected lots or batches 
after the rejected lots or batches nave been 
effectively 100 percent inspected and all de- 
fectives replaced by nondefectives. 


11.4 AVERAGE OUTGOING QUALITY 
LIMIT (AOQL). The AOQL is the maximum 
of the AOQs for all possible incoming quali- 
ties for a given acceptance samp:ing plan. 
AOQL values are given in Table V-A for 
each of the single sampling plans for normal 
inspection and in Table V-B for each of the 
1 ае загар пр р!апз for tightened inspec- 
tien. 
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SUPPLEMENTARY INFORMATION (Continued) 


11.5 AVERAGE SAMPLE SIZE CURVES. 
Average sample size curves for double and 
multiple sampling are in Table IX. These 
show the average sample sizes which may be 
expected to occur under the various sampling 
plans for a given process quality. The curves 
assume r:o curtailment of inspection and are 
approximate to the extent that they are 
based upon the Poisson distribution, and that 
the sample sizes for double and multiple 
sampling are assumed to be 0.631n and 0.25n 
respectively, where n is the equivalent single 
sample size. | 


11.6 LIMITING QUALITY PROTECTION. 
The sampling plans and associated proce- 
dures given in this publication were designed 
for use where the units of product are pro- 
duced in a continuing series of lots or batches 
over a period of time. However, if the lot 
or batch is of an isolated nature, it is desira- 
ble to limit tlie selection of sampling plans 
to those, associated with a designated AQL 
value, that provide not less than a specified 
limiting quality protection. Sampling plans 
for this purpose can be selected by choosing 
a Limiting Quality (LQ) and a consumer's 
risk to be associated with it. Tables VI and 
VII give values of LQ for the commonly used 
consumer's risks of 10 percent and 5 percent 
respectively. If a different value of con- 
sumer's risk is required, the O.C. curves and 
their tabulated values may be used. The 
concept of LQ may also be useful in specify- 
ing the AQL and Inspection Levels for a 
series of lots or batches, thus fixing minimum 
sample size where there is some reason for 
avoiding (with more than a given consumer's 
risk) more than a limiting proportion of de- 
fectives (or defects) in any single iot or 
batch. 
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Attributes 

Average Outgoing Quality (AOQ) | 
Average Outgoing Quality. Limit e 
Average sample size 

Batch m 4. 
Classification of J 

Code letters 

Critical defect | 

Critical defective TT 

Defect 

Defective unit 


Defects per hundred бо И 


Double sampling plan 

Inspection Ж. 

Inspection by attributes .. . 

Inspection level | 

Inspection lot or inspection batch 
Isolated lot 

Limiting сет (LO) | 
Lot ыл с EN 
Lot or batch size 

Major defect | M 
Major defective 7 527, ғ 
Minor defect 

Minor defective 

Multiple sampling plan 

Normal inspection 

Operating characteristic curve 
Original inspection 

Percent defective 

Preferred AQLs 

Process average 

Reduced inspection 

Rejection number 

Responsible authority 

Resubmitted lots or batches 

Sample 
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Sampling plan 

Single sampling plan 

Small-sample inspection 

Switching procedures 

Tightened inspection 

Unit of product 
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Copies of this standard may be obtained by directing requests to 


Commanding Officer 

9.5. Naval Supply Depot 

AITN: Code DMD 

5801 Tabor Avenue 
Philadelphia 20, Pennsylvania 


Copies of this Military Standard may be obtained for other than 
official use by individuals, firms, and contractors from the Superintendent 
ox Documents, U.S. Government Printing Office, Washington 25, р. С. 


Both the title and identifying symbol number should be stipulated 
when requesting copies of Military Standards. 


Custodians: 
Army - Munitions Command 
Navy - Bureau of Weapons 
Air Force - Air Force Logistics Command 
Defense Supply Agency 
Preparing Activity: 


Агшу - Munitions Command 
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APPEND И 
ACGAS SYSTEM Core 


ZT MODUL ETORO 
SESI NON CMD VERSION 1.0 20 MAR 84 HEM 


* This module welcomes the user to the Automated Quality Assurance 
* System. 


* Format file used: SINON.FMT 


* Display logon message. 
SET FORMAT TO sinon 


READ 
DO delay2 


* Commence program 
DO main 
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ПОРОГЕ 0.0.1 
МОМ FMT VERSION 1.0 20 MAR 84 HEM 
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0 ; ИЕ SS SS SS SS SS SS Se 
0 L 50 SAY "=============================+" 
ШОО SAY "I" 
MEO SAY "I" 
ҮЙ САУ"! 
ШИЯ БАУ "1" 
БЕНО 5дАУ "! AUTOMATED QUALITY ASSURANCE" 
3,51 SAY "PROGRAM ыч 
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ЕЕ) SAY TI" 
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ПЛО SAY "i" 
ENS SAY "I" 
КИНО SAY "t! THE NAVAL REGIONAL DATA AUTOMA" 
9,50 SAY "TION CENTER pn 
ШІ 0 SAY "! 
ШТО SAY "1I" 
SAY "1" 
МИТЕ SAY "1" 
EE say "! 
12,79 SAY "! 
ШІ 0 слу "! 
Ш 779 SAY "! 
14, 0 SAY "! by" 
| 
| 
| 
і 





San Francisco, CA." 


Ша 9 БАУ "! 
ШОО SAY "! 
ШТО SAY "! 
l SAY "! CE Toward E. Morton, U" 
ШО SAY "SN ү? 

О SAY "i!" 

75 SAY "1" 

ШОО SAY "! Naval Postgraduate Sch" 
E50 SAY "ool Un 

ШО SAY "! Monterey, CA." 
ШИ SAY "!" 

ВИНО SAY "i1" 

ES SAY "I" 

ENDO SAY "t" 

РО SAY "|!" 

22 ; 0 бАМ "-=================================================" 
22 ; ПНЕ ЛУ "=============================+" 


(со (со (CO (CD (тю (со (со (со (со (со (со (CD (со (CD (CD (со (со (£D (CD (CO (CD (CD (со (со (со (CD (CD. (CO (CO (CD (CD (CD (CD (CD (CD (CD (CO (£D (CD (CD (CD (CO (£D (CO (CD (йр 
I 
Ен 
~ 
O 
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ТОСЕ О ЕЕ 
7 SE CMD VERSIONE 25 MAR 84 HEM 


* This module allows the user to enter or change the Julian 
* date of the QA action to be performed. 


Яя FMT FILE USED: setjuln 
* CALLED BY: main.cmd 


SAVE TO keepem 
CLEAR 
RESTORE FROM keepem 


* Prevent calculations showing on screen 
SET TALK OFF 


* Initialize variables 
STORE O TO date 


* Define format 
SET FORMAT TO setjuln 


* Execute 
READ 


LOCATE ALL FOR julian - date 
EE EOE 
APPEND BLANK 


REPLACE julian WITH date 
ENDIR 


+ Return to calling Program 
RETURN 


[26 


ж ж 
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EODULE 0.0.1 
SergULN.FMT VERSION 1.0 25 MAR 84 HEM 


4, 8 SAY "Specify Julian Date for" 

4,32 SAY mode 

5; ا ص‎ SS Se 
5 Г Cl В ======================—=======+" 

О БАУ "!" 

БЕНО SAY "I" 

О SAY "! Вет which Julian date do you want to take act" 
ST SAY "ion?" 

SS GET date 

ШО О SAY "I" 

pee SAY "I" 

ИІ? SAY " !" 

9 , 0 SAY HNH -l—=================================================" 
9 (50 SAY Е. 
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MODULE OZ 
“DELAY 2- CMD 


* This module provides a short delay to allow the user to read a 
screen before the program moves on. 


SET TALK OFF 

STORES T TO CX 

DO WHILE tx « 200 
STORE tse 1110 Е 

ENDDO 

ERASE 

RELEASE ALL LIKE tx 

RETURN 
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EN ODULE 0.2.5 
* DELAY5.CMD 


* This module provides a short delay to allow the user to read a 
* screen before the program moves on. 


SET TALK OFF 

ШОКЕ 1 TO tx 

HILE tx < 500 
ALORE tx + l1 TO tx 

ENDDO 

ERASE 

RELEASE ALL LIKE tx 

RETURN 


en 





* MODULE 1.0 
MAIN.CMD VERSION 2.4 12 APR 84 НЕМ 


+ 


This is the main program of the Automated Quality Assurance 
sae eb 


PMT FILE, USED: MAIN = ЕШ 
CALLED BY; LOGON.CMD 


+ + + + ж 


* Allow both upper and lower case inputs 
SET EXACT OFF 


SAVE TO keepem 
CLEAR 

RESTORE FROM keepem 
STORE T TO gO 


* Set up the loop 
DO WHILE go 


* Set up screen and prompts 
SET FORMAT TO main 


STORE " "F" TO command 
READ 
* Perform selected function 
DO CASE 
CASE command = "1" 
DO select 
CASE command = "2" 
рабро в 
CASE command = "3" 
DO analyze 
CASE command ~ "4* 
DO utility 
CASE command = "7" 


ERASE 

*Prevent the dBASE II sign-off message 
SET CONSOLE OEE 

OUIT 


CASE command - "%" 


ERASE 
CLEAR 
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CANCEL 






ENDCASE 
RELEASE command 


ties 


ж 
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MODULE 1.1 


MAIN.FMT 


E 
2, 0 
2/2) 
3, Ü 
3 2799 
4, 0 
4,50 
D 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
GET 
SAY 
SAY 
SAY 
SAY 
SAY 


VERSION 2 12 APR 84 HEM 


"Main Menu" 


Welcome to NARDAC San Francisco’s Automated О" 
"uality Assurance System. Ба 
E You have four options at this initial роии 


1. Initiate the sample selection process." 
2. Input the sample and inspection data." 
3. Analyze the data and generate reports." 
4. Go to the Utility Menu." 


І 
! 
! 
! 
! 
! 
! 
! 
! 
"qn 
: 
! 
! 
! 
! 
| 
1 
: 
i 


и l " 
"n ! " 
— PLEASE CHOOSE ONE OPTION AT THis Lilie. 
command 
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* MODULE 2.0 
ВЕСТ. СМО VERSION 2.3 20 MAR 84 HEM 


» 


This is the Sample Selection Module. 


SME TILE USED: SELECT. FMT 
CALLED BY MAIN. CMD 


+ + + + 


SAVE TO keepem 
CLEAR 
RESTORE FROM keepem 


* Restore seed value 
meolORE FROM startup ADDITIVE 


* Prevent calculations from being shown on screen 
EET TALK OFF 


* Set up screens and prompts 


STORE "Sample Selection" TO mode 
ВОВЕ “ " TO insplv1 

STORE O0 TO noevents 

STORE 0 ТО sampnum 

STORE 1 TO xcounter 

STORE O0 TO xrandom 

ОБЕ "Normal" to rcmdl 

STORE "Tightened" to гспа2 

STORE "Reduced" to rcmd3 


DO setjuln 
SET FORMAT TO select 


ШЕ о:ааудаћа 
LOCATE FOR julian = date 
ше EOF 
APPEND BLANK 
REPLACE julian WITH date 
ENDIF 
TIP =| 
ВОВЕ rcmdinsp TO rcmd4 
STORE julian TO xprev 


* Define the file to be used, and clear it of previous entries. 
USE b:sampfile 

DELETE ALL 

PACK 


* Get number of events and inspection level from user. 
READ 


5 


* Give the user something to read during calculation 
ERASE 
@ 8,10 SAY"GENERATING RANDOM SAMPLES AT THIS TIME" 


* Determine the number of samples to be taken given the 
* inspection level input and the number of events. 
DO SAMPGEN 


* Generate n unique random samples, where n = sampnum, and the 
* range of the samples is from l1 to noevents. 
DO RANDGEN 


* Inform user that sample selection is complete, and give him 
* instructions on how to return to Main Menu. 


ERASE 

(a 59/10 SAY V * kk kokcoko kc kc k ck kk ck ck ck ck ok kk ke ke ke ko ko k k kk U 
CG INS MUT жи 
а 8,10 БАУ"Х SAMPLE GENERATION COMPLETE *" 
а 9,10 оду" х жи 
Q 10,10 SAY" XX xkokok kk kk ek kk ke ke ke kk e e ke ke 1 
DO delay2 


USE b:daydata 
LOCATE FOR julian = date 


TE NOT EOF 


REPLACE samps WITH sampnum 
REPLACE events WITH noevents 


DO CASE 
CASE insplvl - "]" 
REPLACE finsplvl WITH rcmdl 
CASE рта жоон 
REPLACE finsplvl WITH rcmd2 
САВЕ те = n o" 
ENDCASREPLACE finsplyvli WITH romas 
ELSE 
DO selerrl 
DO delay2 
ENDIF 


RELEASE ALL LIKE rcmd* 
RELEASE ALL LIKE x* 


DO no r Lt y 


RETURN 
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ПОРПОТЕ 2.0.1 


ж 
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EBEECT.FMT 


0,34 
в, 0 
В, 50 
ES 0 
E19 
3, 0 
3,50 
3,62 
3,73 
а, 0 
4,50 
5, 0 
Б) 39 
5,55 
6, 0 
6,79 
7, 0 
79 
5, 0 
8,79 
Пе О 
9,47 
2, 60 
9,62 
279 
во, 0 
10,79 
ЕТ, 0 
ИН, 50 
№2, 0 
i, 19 
i, 0 
№, 79 
14, 0 
14,79 
15, 0 
ШЕ, 79 
Шо, 0 
№6, 79 
ШІ, 0 
ІШІ, /9 
19, 0 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
ОЕТ 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
СЕТ 
SAY 
SAY 
SAY 


VERSION I 10 MAR 84 HEM 
"Select Menu" 
Е SS SS SS SS SS SS SS SS SS SS SS" 
ee == = жо = = 
п ! " 
при 
ду. Based on the results of inspection process со" 
"mpleted for" 


хргеу 


и 1 11 


, 
И the Automated Quality Assurance Program recom" 
"mends that today's ү 

ies inspection be conducted under the" 

кста4 


"inspection level 


W^ in accordance with MIL STD 105D." 

иги 

"n ' п 

п 1 n 

tt ! " 

nmn 

— ENTER THE NUMEER OE EVENTS FOR JULIAN DATE" 
date 

" ° и 

поечейи 5 

ити 

" 1 " 

11 ! п 

eel select The Inspection Level to be used for th" 


"is day’s run. ып 


ити 
п 1 п 

чу! 1. Normal Inspection" 

" 1 пи 

п | п 

п 1 11 

ч 2. Increased Inspection" 
п 1 п 

п ! п 

п 1 п 

"е 3. Reduced Inspection" 

п 1 п 

11 1 " 

п 1 п 

el ENTER INSPECTION LEVEL" 
umso | 

ити 

tt 1 " 

п 1 п 


15] 


@ 21 ; 0 SAY „јавне me. CORE MESE 
@ 21,50 SAY "=============================+" 


18 





ESMODULE 2.1 
ESSAMPGEN.CMD VERSION 1.1 9 MAY 84 HEM 


* This is the Sample Number Generation Module 
m ALLED BY SELECT .CMD 
х Given the number of events for the day (noevents) and the 


inspection level desired, generate the number of samples to be 
* taken. 


+ 


SAVE TO keepem 
CLEAR 
RESTORE FROM keepem 


DO CASE 
МАСЕ insplvl - "1" .OR. insplvl = "2" 
DO CASE 


CASE noevents »- 2 .AND. noevents <= 8 
STORE 2 TO sampnum 


CASE noevents »- 9 .AND. noevents <= 15 
STORE 3 TO sampnum 


CASE noevents >= 16 .AND. noevents <= 25 
STORE 5 TO sampnum 


CASE noevents >= 26 .AND. noevents <= 50 
STORE 8 TO sampnum 


CASE noevents >= 51 .AND. noevents <= 90 
STORE 13 TO sampnum 


CASE noevents >= 91 .AND. noevents <= 150 
STORE 20 TO sampnum 


CASE noevents >= 151 .AND. noevents <= 280 
STORE 32 TO sampnum 


CASE noevents >= 281 .AND. noevents <= 500 
STORE 50 TO sampnum 


CASE noevents >= 501 .AND. noevents <= 1200 
STORE 80 TO sampnum 


CASE noevents >= 1201 .AND. noevents <= 3200 
STORE 125 ТО sampnum 


CASE noevents »- 3201 .AND. noevents <- 10000 
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STORE 200 TO sampnum 


CASE noevents >= 10001 .AND. noevents «- 35000 
STORE 315 TO sa2ampnum 


CASE noevents >= 35001 .AND. noevents <= < БОКЕ 
STORE 500 То бара 


CASE noevents >= 150001 .AND. noevents <= 500000 
STORE 800 TO sampnum 


CASE noevents > 500001 
STORE 1250 TO sampnum 


OTHERWISE 

ERASE 

@ 8,15 SAY "NUMBER OF EVENTS ENTERED IS OUT OF RANGE" 
10,15 SAY "OF THIS PROGRAM. PLEASE CONTACT YOURS 
12,15 SAY SUPERVISORS 
16,15 SAY “Press any key to continue™ 
17,1 SAY 
Do Eon 4 
ОЕ " 
20 БАЗА " 
2l,1 SAT Қ 
22,1 SAY " 

AIT 


>, (со (FD (CD (CO (CD (CD (со (со (ғо 


ENDCASE 


CASE insplvl = "3" 
DO CASE 


CASE noevents >= 2 .AND. noevents <= 25 
STORE 2 TO sampnum 


CASE noevents >= 26 .AND. noevents <= 50 
STORE 3 TO sampnum 


CASE noevents >= 51 .AND. noevents <= 90 
STORE 5 TO sampnum 


CASE noevents >= 91 .AND. noevents <= 150 
STORE 8 TO sampnum 


CASE noevents >= 151 .AND. noevents <= 280 
STORE 13 TO sampnum 


CASE noevents >= 281 .AND. noevents <= 500 
STORE 2U TO SAMO UR 
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ENDCAS 


RETURN 


CASE noevents »- 
STORE 32 TO sampnum 


CASE noevents >= 1201 
SLORE 50 TO сапрпиш 


CASE noevents >= 3201 
STORE 80 TO sampnum 


CASE noevents 
STORE 125 TO sampnum 


CASE noevents »- 35001 
STORE 200 TO sampnum 


CASE noevents 
STORE 315 ТО sampnum 


CASE noevents » 500001 
STORE 500 TO sampnum 


OTHERWISE 


ERASE 
15 


Er 
18,1 
КО 
ОИ 
i 
zy 


(со (со (со (со (со (CD (CO (CO(CO (CO 


>, 
> 
H 
ж 


ENDCASE 


E 


SAY 


10,15 SAY 
12,15. SAY 


SAY 
SAY 
элү 
SAY 
SAY 
SAY 


>= 150001 


. AND. 


TANDE 


ZANDE 


. AND. 


.AND. 


“AND: 


noevents <= 


noevents 


noevents 


1200 


noevents <= 3200 


noevents <= 10000 


<= 35000 


noevents <= 150000 


<= 500000 


"NUMBER OF EVENTS ENTERED IS OUT OF RANGE" 
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"OF THIS PROGRAM. PLEASE CONTACT YOUR" 
"SUPERVISOR" 
16,15 SAY "Press any key to continue" 


~ МО ЊЕНА 
RANDGEN.CMD VERSION 1.1 3 MAR 84 HEM 


ж 


This is module generates n unique random samples where n - 
sampnum, and the range of n is from 1 to the number of events 
for a given day (noevents). 


+ + + + ж 


CALLED BY SELECT. Ch 


ж 


Generate n random samples, where n - sampnum, and range of n 
* is from 1 to noevents. 


SAVE TO keepem 
CLEAR 
RESTORE FROM keepem 


USE b:sampfile 


* Initialize COUN er 
STORE ] TO counter 


* Set up loop to occur n times, where n = sampnum 
DO WHILE counter <= sampnum 


* Increment counter. 
STORE counter + 1 TO counter 


* Calculate pseudorandom number 
STORE seed + 3.14159265 TO seed 
STORE seed * seed TO seed 

STORE seed - INT(seed) TO seed 


* Multiply pseudorandom number by the number of events to 
* obtain sample number, and store to random. 
STORE 1 + INT(noevents * seed) TO random 


* Ensure that random not larger than sampnum, nor smaller 
х than l. If so, ignore random and decrement counter by aes 
DO CASE 


CASE random » noevents .OR. random < 1 
STORE counter - l] TO counter 


OT RIBUESWSESS S 
* Ensure that the samples generated are unique. If not, 
* do not append the sample to the list, but decrement 
*uhelcounter cb и 


LOCATE ALL FOR random = eventno 
IF EOF 
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APPEND BLANK 
REPLACE eventno WITH random 


ELSE 
STORE counter - 1 TO counter 


ENDIF 


ENDCASE 
ENDDO 
* Save the seed value 
SAVE TO startup ALL LIKE seed 
ENDDO 
RETURN 
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MODULE TA 
* NC Gir Y=. Mp VERSION ae 9 MAY 84 HEM 


* This module notifies Quality Assurance personnel of the 
* events to be sampled. 


* FMT FILES USED: NOTIFYI FMT ana NOTIF Y m 
OUTPUT FORMS USED: SAMPRET B bi 
* THIS MODULE CALLED ВУ о Нива EE 


+ 


SAVE TO keepem 
CLEAR 
RESTORE FROM keepem 


* Input date into report header 

STORE: X TO C:Order 

STORE STR(DATE,5) TO dte 

SET HEADING TO INSPECTION LIST TOR JULIAN DATE &dte 


* Specify file to be used 
USE b:sampfile 


* Arrange the file in numerical order 
INDEX ON eventno TO b:samplist 


* Display initial NOTIFY messages and cautions. 
SET FORMAT TO notifyl 
READ 


DO delay2 


* Advise the user of the utilization of this list. 
SET FORMAT TO notityZ 

READ 

DO delay5 


* Perform output: in printed вешта 
SET PRINT ON 

КЕРОКТ ЕОКМ сатшртрг 

EJECT 

SET PRINT OFF 


* Return to the Calling Program 
RETURN 
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MODULE 2.3.1 


ЈУ. ЕМТ VERSION To L2 APR 84 HEM 
07 50 SAY "Sample Notification" 
ПЕ, м! 
ii 250 < === === === === === == 
EO SAY "i" 
ЕТО SAY "i1" 
РЕНО SAY "! At this point, the system has generated a ser" 
3,50 SAY "ies of random numbers EM 
ООО SAY "! which are equal in number to the number of sa" 
4,50 SAY "mples that must be um 
БЕНО SAY "t: taken given the number of events and the insp" 
5,50 SAY "ection level you input үп 
КОО SAY "! during the Sample Selection process, precedin" 
ОООО SAY "а. n 
IU SAY "I" 
EN SAY "i1" 
ЖИЕ SAY "! This is a good time to take a minute and read" 
Eye БАУ "y the printer. i" 
oye 0 SAY "i!" 
ШШІ9 SAY "I" 
ШОШО SAY "i!" 
NULUS SAY "1!" 
IET , O SAY "+=================================================" 
ШИ” 50 SAY " --===========================+ "'' 
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ж ж 
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MODULE ID 


NOTIFY2.FMT 


1721 
2, 0 
2,50 


5,50 
100 
10,31 
10,46 
11, 0 
11,50 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


VERSION 1.0 12 APR 84 HEM 


“Sample Мо OE 


ЊЕ: This list delineates those events which you w" 


The" 


"ill be using LOr 

2 inspection purposes. 
sampnum 

"samples have been calculated 
"1 by the system based on your input of" 
noevents 


"events and the jos 

Re level of inspection desired. To use the list" 

"which will be provided s 

а when this module is executed, read the sample" 
"number listed on the рм 

т form and compare it to the list you have for" 

"the computer center 5 m 

SM operations for Julian date" 

date 

"The numbers this system ү 

"1 has Generated reter ie Ба position of the ev" 
"ents on that list 

E (i.e.: Sample Number 5 Bos to the 5th item 

"on the 6с. ЕСЕ pe 

па and this SEES those events you must ins" 
прес ассовантлси ЕФ ши 

"1 published Quality Control Standards =, 

11 | n 

11 | " 

n l и 

W .=================================================" 
H——===========================+"'" 
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ENMODULE 3.0 
EN NPUT.CMD VERSION 1.5 12 АРЕ 84 НЕМ 


* This module allows the user to input the IRR numbers to be 
* inspected, the results of the inspection process, and to make 
* any changes to the IRR s which may be required. 


* CALLED BY MAIN.CMD 


SAVE TO keepem 
CLEAR 
RESTORE FROM keepem 


* Specify file to be used. 
ШЕН Б:ігг 


* Prevent calculations from showing on screen 
SET TALK OFF 


* Initialize variables 
STORE Y to t: Imore 
ENORE "Data Input" TO mode 


Ш Бес up DO loop 
DO WHILE t:Imore 


MORE " то t:order 


Sit) PORMAT TO inputl 
READ 


DO CASE 


CASE t:order = "Il" 
MO SEMIS Sle 


CASE t:order - "2" 
DO inspres 


CASE t:order - "3" 
DO setjuln 


OTHERWISE 
STORE n TO t:Imore 


ENDCASE 
ENDDO 
* Release temporary memory variables 
BEDBEASE ALL LIKE t:* 
RETURN 
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+ 
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MODUTESSS I 


ТЕРИ . FMT 


л -Ү A Q‏ لح ل 


~J 
сә о о оох оңо го О оО СОИ 


1650 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
GET 
SAY 
SAY 
SAY 
SAY 
SAY 


VERSION Е 10 APR 84 HEM 


прага арш 

Н (=== ===== ===="= = === = 8 
Ш 

" ! и 

и ! и 

A At this point you may choose one of four opti 
"Ons ри 

" ! " 

и ! и 

ч! l. Enter IRR numbers" 

ити 

" i " 

"n ! [1] 

"1 2. Enter inspection results" 

и I и 

и 1 "1 

и I " 

i 3. Change the Julian Date, and enter data for 
"a different day ү 

при 

и | " 

Dd 4. Return to the Main Menu" 

и | n 

пи 1 n 

и ! и 

| PLEASE CHOOSE ONE OPTION AT THIS TIME:" 
t:order 

и 1 и 

и ! и 

и ! и 

n +R+=== == = = == === =z= === = = == == == == == == == === === == 0090995 
"---=--=---======================+ " 
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MODULE 3.1 
ESMPSPEC .CMD VERSION ОЕ 2 10 МАК 84 НЕМ 


* 


This module allows the user to input the IRR numbers to be 
inspected and then automatically generates the required 
timeliness and quality reports to be filled in by ОАЕ 
personnel. 


+ + + + 


» 


ПО MODULE CALLED BY: INPUT. CMD 


SAVE TO keepem 
CLEAR 
RESTORE FROM keepem 


* Prevent calculations from showing on screen 
Soe TALK OFF 


х Initialize variables 

ВОВЕ У ТО t:more 

СЛОГЕ 0 ТО t:TYM 

РЕИСЕЕ 0 TO t:R 

TORE Sample Identification" TO mode 


DO setjuln 
NE b:irr 


Set up the loop 
VO WHILE t:more 


ERASE 


EE D SAY "JULIAN DATE " 
@ 2,14 SAY date 
2 


2 
APPEND BLANK 
REPLACE julian WITH date 


РОТ “Time” TO t:TYM 
БЕЕГАСЕ time WITH t:TYM 


INPUT "Record Number" TO t:R 
REPLACE recno WITH t:R 


INPUT "Any more IRR’s to enter for this date? (Y or N)" TO t:more 
DO timerpt 
DO Gqualrpt 


EI FORMAT TO PRINT 
EJECT 
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SEL FORMAT TO SCREEN 
ENDDO 
* Release all temporary memory variables 
RELEASE ALL LIKE Eo 
ВЕТЈЕМ 


i50 





NODULE 3.1.1 


ET FORMAT TO PRINT 
SET MARGIN 


ЗІ 
4, 0 


4,15 


49,40 
51,40 
53,40 
56,40 
57,40 


* TIMERPT.CMD VERSION 1 1 АРЕ 84 НЕМ 
TO IO0 
SAY "TIMELINESS REPORT" 
SAY “IRR Nos” 
SAY JULIAN 
SAY TIME 
SAY RECNO 
SAY ДЫ! 
SAY "A. Time that Gov t provided input: 
SAY "B. Time Event/Output was completed: 
Ens Dhroughput (B = А) 
SAY "D. Standard: И 
SAY "E. Accept/Reject: n 
GAY Нт-ттт------------------------------- 
SAY "-========================" 
SAY "Rejection caused by:" 
SAY "Contractor Caused (Y/N) 
SAY "Government Caused (Y/N) 
SAY "Database Updated? и 
DAY " 
SAY "МАЕРАС 5.Е." 
SAY "OAE Representative" 


(CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (бо (бо (бо (бо (бо (со 
= 
NO 
~ 
о Деде Де Деде 


58,40 


Seal FORMAT TO SCREEN 


RETURN 
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5 IMODUISESS S о 


* QUALRPT CMD “VERSION TI 


l APR 84 HEM 


SET FORMAT TO PRINT 
SET MARGIN TO TO 


6 


(со (со (со (со (со (со (со (со (со (со (со (со (со (со (со (со (со (со (со 


EES 
5, 0 
oS 
Ва 
5 1 
5, 25 
ғ 2 
аю 
o O 
11, 0 
ено 
3,30 
14, O 
52740 
Dom 
оао 
56, 0 
56,50 
57, 0 
5750 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


"OUALITY REPORT" 
УК МОНА 

JULIAN 

TIME 

RECNO 


" " 


"Client Command: 

" п 

"Is the Quality Acceptable? (Y/N) 
"Is it Accurate? (у/К) ______ 


"Rejection caused by:" 
"Database Updated? Д 


" " 


"Client Command 
"Representative 
"entative" 


SET FORMAT TO SCREEN 
RETURN 
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NARDAC S.F" 


QAE Repres" 


+ 


жж жж 


* 
* 


MODULE 3.2 
INUSPRES.CMD VERSION 2.2 24 MAR 84 HEM 


This module use the julian date specified in SETJULN, and 

n i the time and record number to determine which record is 
to be updated. It then allows the user to input inspection 
results to the specified record. 


ШӘБЕЕРр BY: INPUT.CMD 
ner FILE USED: INSPRES.FMT 


SAVE TO keepem 
CLEAR 
RESTORE FROM keepem 


* 


Prevent calculations from showing on screen 


SET VALE OFF 


* 


Allow both upper and lower case inputs 


See EXACT OFF 


STORE "Inputting Inspection Results" TO mode 
DO setjuln 


* 


Specify file to be used 


ПЕ В: ТВК 


* 


БЕ Пр loop 


STORE Y TO more 


* Loop program 
DO WHILE more 


* Define format 
SET FORMAT TO inspres 


МЕ ај ле variables 
ОНЕ О TO xtime 

КОКЕ О TO xrecno 
ST" " TO xtype 
STORE Y TO xtstep 


* Execute 
READ 


STORE !(xtype) TO xtype 
* Locate the record whose results are to be input 
LOCATE FOR julian = date .AND. time = xtime .AND. recno = xrecno 


пешке the record exists. If not, loop back to INSPRES.FMT. 
fee NOT. EOF 


DO CASE 
* Input the results of timeliness inspections 
CASE TED) E 
x Set T керогъйе вас tom eos 
REPLACE T WITH 9 
ERASE 
в TIRRGNO T 
@ 2,10 SAY date 
@ 2,20 SAY xtime 
8 2,30 SAY xrecno 
@ 2,42 SAY xtype 
2 
2 
* Input site data 
ACCEPT "SITE?" TO xsite 
REPLACE site WITH !(xsite) 


* Input results of timeliness inspection. 
INPUT "DID THE SAMPLE PASS THE TIMELINESS = 
INSPECTION?" TO xtac 
REPLACE taccept WITH xtac 
П тас 
х ТЕ Еће inspection was successful, set the 
* time problem flag to no, and find out if there 
* are any more inspection results to input. 
STORETN TOM 
REPLACE timeprob WITH xt 
INPUT "Any more inspection results to input now?"; 
TO MOTS 
ELSE 
If the Inspection was not successful, set the 
time problem flag to no, find опе if ETIE 
problem was the result of system problems or 
was the fault of the gov't. Find out if there 
* are any more inspection results to input. 
STORE N TO XE 
REPLACE timeprob WITH xt 
ERASE 


ж жж ж 


272 SAY“ ikke wen. 
2,10 SAY date 
2,20 SAY. xtime 
2,30 SAY xrecno 
2,42 SAY xtype 


MJ OU с) Сар Са) (CD (OD 


INPUT " WAS THE DISCREPANCY THE RESULT OF SYSTEM ; 
FAILURE TOC 

REPLACE system WITH xs 

INPUT " WAS THE DISCREPANCY THE FAULT OF THE ; 
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GOVERNMENT?" ТО ха 
REPLACE govt WITH xg 
INPUT " Any more inspection results to input?"; 
TOI more 
ENDIF 


* Input the results of quality inspections 
CASE !(xtype) = "0" 
* Set the Q report flag to yes. 
REPLACE- O WITH xXtstep 
ERASE 
* Input the results of quality inspections 


DOT SAY "IRR No." 
2,10 SAY date 
2,20 SAY xtime 

2, 50 SAY хгеспо 
2,42 SAY xtype 


ex) АЈ ЕАУ re о О 


VEUT "DID THE SAMPLE PASS THE QUALITY ; 
EUSPECTION?" TO хаас 
МАСЕ qaecept WITH xgac 


Ж ТІ the inspection was successful, set the 
ша Бу problem flag to no, and find out if 
* there are any more inspection results to input. 


р хаас 
INPUT "Any more inspection results to input now?"; 
TO MOTE 
ELSE 


*If the inspection was not successful, set the 

* quality problem flag to yes, and find out if 

* the problem was one of accuracy or of quality. 
ERASE 


ERSAY T IRR Nods"! 
2,10 SAY date 
2,20 SAY xtime 
ISU SAY xrecno 
2,42 SAY xtype 


4Ә 99 (090 DD DPD re 


ШЕШІ "ACCURACY DISCREPANCY?" TO xa 

REPLACE accuprob WITH xa 

INPUT "QUALITY DISREPANCY?" TO xq 

REPLACE gqualprob WITH ха 

INPUT "Any more inspection results to input now?"; 
Lo TOLE 


Пе 


ENDIF 
ENDCASE 


* Release temporary variables 
RELEASE ALL LiKE x 


ENDIF 
ENDDO 


* Release loop variable 
RELEASE more 


RETURN 
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(со (со (со (со (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CD (CO (CD (CD. (CD (CO 


ОЕ 3.2.1 


IUSPRES.FMT VERSION 1.2 24 MAR 84 HEM 

В SAY “Input. Inspection Results" 

|| , 0 SAY "у _-----=--=---==--=- === -=--=-=-=--=-========== " 
1 А 50 SAY п„ -=-=-========================+" 

feo SAY "т" 

DEO SAY "1!" 

КИНО SAY "! You are now ready to input the inspection res" 
feo SAY "ults for 55 

ESO SAY "I! Julian date" 

4,16 SAY date 

4,28 SAY ". During this process you will be asked several" 

ЕШ С SAY "1" 

ИО SAY "! questions. When asked for the site of the ins" 
meso SAY “pection, input the first ү 

6, 0 SAY "! letter of the site (A = Alameda, L = Lemoore," 
БЕЛ SAY "M = Moffett, etc.), or i 

PESO SAY "! type of report (T = Timeliness, Q = Quality)." 
7,51 SAY "For all the other qn 

ERO SAY "| questions, reply with Y (Yes) or N (No)." 

BEND SAY "1" 

РЕНО SAY "!" 

ЕТО БАХ ":" 

О SAY "I Time" 

10, 9 GET xtime 
ШОО SAY “Record No." 
ЗО СЕТ хгеспо 
ES SAY "Report Type ("T or Q)" 
10,61 GET xtype 
ШАТО SAY "I" 

imo SAY "1" 

РЭ SAY "1" 

12 ; Е! 
12,50 5дАУ "=============================+ 


1 7 


* MODULE 0 
ANALYZE.CMD VERSION 1.2 12 APR 84 HEM 


» 


This module takes the data input from INSPRES.CMD, compares it 
with information in DAYDATA, and in accordance with МІН СЫ 
105D accepts or rejects that day's work. The module then sets 
the recommended inspection level for the next day, and makes 
reports as needed to QA personnel. 


њ о» » » » 


+ 


CALLED BY: MAIN.CMD 
* FORMAT FILE USED: ANALYZEITEMI 


SAVE TO keepem 
CLEAR 
RESTORE FROM keepem 


* Prevent calculations from showing on screen 
SET TALE OFF 


* Allow both upper and lower case inputs 
SET -EXACT OFF 


x Initialize variables 
STORE 0 ТО date 


* Give the user something to read 
ERASE 

SET FORMAT TO ANALYZE] 

READ 

*DO delay2 


* Ensure that all samples for the day in question have been 
* inspected, and that both T and Q reports are in for all 

* samples. 

DO SAMPCHEK 


* Determine whether the day’s work is accepted or rejeted. 
DO SAMPANAL 


* Prescribe the recommended inspection level for the next days 
* work. 


DO INSPANAL 


* Make required reports 
DO INSERET 


* Return to the Main Menu 
RETURN 
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* 


(со (со (со (со со (со (со (со (со (со (TD (TD (TD (0) (00 (TD СО) (А) (О) (А) (А) (А) (ОУ (со 


MODULE 4.0.1 
ANALYZELl.FMT VERSION ЊЕ 24 МАК 84 НЕМ 


1,33 SAY "Sample Analysis" 

2, (ee ت‎ = ===> <" 
D ; EM Da ———————c————————————————————.9 

ШІ 0 SAY "I" 

ЕИО SAY "!" 

4, 0 SAY "! At this time, the program will analyze the da" 
4,50 SAY "ta input previously. m 

ОООО БАХ "|" 

СЕ У SAY “!" 

ОООО SAY "! FOR WHICH JULIAN DATE IS ANALYSIS TO BE DONE?" 
ОООО СЕТ date | 

БИО SAY "i" 

EN SAY "1" 

E SAY "I" 

Ы! О SAY "I You will be informed when analysis is complet" 
8,50 SAY "e, and requested to Не 

ЕИО БАУ "1!" 

ОУ бАҮ "!" 
ОООО SAY "! choose output options at that time." 

ШУЭ SAY "!" | 

ШЕР О SAY "!" 

MEUS SAY "I" 

ша j ЕЕ И 
2 ; О = SS SS SS SS SS eS 
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* MODULE 8.1 
* SAMPCHEK CMDS ERS TONIE 12 АРЕ 84 НЕМ 


* This module ensures that all samples for the day in que = 
* have been inspected, and that both T and Q reports are 
* completed for all samples. 


* CALLED BY: ANALYZE.CMD 
* FORMAT FILE USED: SAMP I SE EM 


SAVE TO keepem 
CLEAR 
RESTORE FROM keepem 


USE b:daydata 
LOCATE FOR julian = даће 


SELECT SECONDARY 
USE Е 


COUNT FOR julian = date TO daycount 


* Ensure all samples have been input for the day specified 
IF daycount <> samps 


ERASE 

DO error! 
DO delay2 
pooxnuaput 


ELSE 
* Ensure both reports in for all samples for the day specified 
LOCATE FOR julian = date .AND. NOT ST p C 
julian = date .AND. .МОТ. О 


ТЕ „МОТ EOE 
рО» егтог2 
DO delay2 
DO При 
ENDIF 
ENDIF 
RELEASE daycount 


* Return to the calling program 
RETURN 
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ESIODULE 4.1.1 


ESERRORI .CMD 


E 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
R 


RA 


O A OS SW WM‏ ل ل 
М ч ч а < w < w m < ~ т]‏ 
~J сл ~ on‏ 
CO XO C NO C CONI CO C‏ 


со 
w ` ~ 
ou ل“‎ 
N O 


~ 


~ 


= 
O WO CO CO CO 
~ 
~J - 
OO ao 


f 


10,79 
0 
11,79 
ШО, 0 
ща 50 
в, 0 
35.9 
14, 0 
14,79 
lS 0 
ШЕ, 79 
№6, 0 
Шо 79 
17, 0 
В, 50 


E 
E 
~ 


ETURN 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
S AY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
EY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


пре 


VERMON 1.0 


12 APR 84 HEM 


БЕКЕ БЕО ERROR" 


ERROR! 
ERROR! 


YOU HAVE NOT ENTERRED ALL THE RECORDS FOR DAT" 


julian 


"o, om 
е 
при 
е 
"іт 
* 
при 
е 
Wo, ü" 
е 
"n 
е 
при 
* 


HI TIME TO COMPLETE 


— — — 


COU ILE EE ШНЕЛЛ МР УТ ОРТТОЫКАТЕТ" 


ТЫРЫ Ж АСТТОМ КОКЕ ЕКИ ОИ БАТЕ " 


— — — — — — — — — — — — — — — — «Шыны» — — — — — — — — — — — — — — — — — — — — — —— — — 
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* MODULE 41.2 


=S EBRROEZ. cmp 


0 SAY 
0 SAY 
0 SAY 
О SAY 
Ü SAY 
0 SAY 
0 SAY 
9 
0 
9 
0 
4 
7 
0 


л 


~J 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
10,79 SAY 
11, 0 SAY 
ТЕ, 20 АУ 
12 0 NE 
АЕ 
13,7, 0 S 
I3 5 509492 
14, UO SAT 
14,19 SAY 
А ЕАУ 
15,50 SAY 


~ 


VERSION 1:0 12 APR 84 HEM 


l 
! 
b ERROR! ERROR! ERROR! ERROR" 
! ERROR! [1g 

l 

! 


“. ON AT LEAST ONE SAMPLE FOR JULIAN DATE" 
итап 

"YOU FAILED TO ү 

при 


К" INPUT BOTH THE T AND Q INSPECTION REPORT F 
"CU WILL BE RE LURNED TO је 


E THE INPUT OPTION AT THIS TIME TO INPUT THE RE" 
"QUIRED REPORTS. E 


I 


EESMODULE 4.2 
SAMPANAL.CMD VERSTON TI-TI 9 MAY 84 HEM 


+ 


This module analyzes the inspection results input in the input 
Section, and determines first, whether the day s results passed 
the inspection, апа second, (in the case of the reduced 
inspection level) what level of inspection should be used for 
pe next day. 


* * * * X 


* 


ШЕШЕ! AS PRESENTED, THIS MODULE REFLECTS MIL-STD-105D FOR AN 
НИОР OF 2.5. SHOULD THIS AQL BE CHANGED, IT IS MANDATORY THAT 
HTS MODULE BE CHANGED TO REFLECT THAT CHANGE IN AQL! 


SAVE TO keepem 
CLEAR 
БЕӘТОКЕ FROM KEEPEM 


CALLED BY: ANALYZE.CMD 
ЕШОКЕ N TO taccept 
Шен Б:ігг 


* Determine the total number of bad samples 
COUNT FOR julian = date .AND. .NOT. qaccept .AND. NOT. govt .OR.; 
ап = date .AND. „МОТ. taccept .AND. .NOT. govt TO rejectno 


USE b:daydata 
LOCATE FOR julian = date 


* Determine whether to accept or reject the day's work 
DO CASE 


ESSE finsplvl - "Normal" 
ED CASE 


CASE samps — 2 .OR. samps = 3 .OR. samps = 5 .OR.; 
samps = 8 
IF rejectno = 0 
SPORE y TO сассере 
ENDIF 


CASE samps = 13 .OR. samps = 20 
IF rejectno <= 1 
СОКЕ Y TO taccept 
ENDIF 


CASE samps = 32 
IF гејесіпо <= 2 
STOREY TO вассере 
ENDIF 
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CASE samps - 50 
IF rejectno <= 3 
STORE Y TO taccept 
ENDIF 


CASE samps = 80 
IF rejectno <= 5 
> TORE УТО сер 
ENDIF 


CASE samps = 125 
IF rejectno <= 7 
STORE ТОСТ 
ENDIF 


CASE samps = 200 
IF rejectno <= 10 
STORE Y TO сассере 
ENDIF 


CASE samps = 315 
IF rejectno <= 14 
STORE Y ТОшвассера 
ENDIF 


CASE samps >= 500 
IF кејесЕпо <= 21 
STORE У DOUSaOCQDE 


ENDIF 
ENDCASE 
* Determine whether to accept or reject the day's work 
CASE finsplvl = "Tightened" 
DO CASE 
CASE запрз = 2 .OR. samps = 3 .OR. samps = 5 .OR.; 
samps = 8 
IF rejectno = 0 
OTORE Y- TO гассер 
ENDIF 


CASE samps = 13 .OR. samps = 20 .OR. samps = 32 
IF rejectno <= 1 
STORE x TO сасоере 
ENDIF 


CASE samps = 50 


IF rejectno <= 2 
STORE Y TO taccept 
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ENDTE 


CASE samps = 80 
IF rejectno <= 3 
STORES Y TO taccept 
ENDTE 


CASE samps = 125 
IF rejectno <= 5 
STORE y TO гассере 
ENDIF 


CASE samps = 200 
IF rejectno <= 8 
STORE =r TO тассере 
ENDTE 


CASE samps = 315 
IF rejectno <= 12 
STORE Y LO, taccepu 
ENDIF 


CASE samps >= 500 
IF rejectno <= 18 
STORE y TO taccept 
ENDIF 


ENDCASE 


* Determine whether to accept or reject the day's work 
* Determine the recommended inspection level for the next day 


CASE finsplvl = "Reduced" 
BO CASE 


CASE samps = 2 .OR. samps = 3 
IF rejectno = 0 
РЕ. ТО raccept 
REPLACE rcemdinsp WITH "Reduced" 
ELSE 
REPLACE rcmdinsp WITH "Normal" 
ENDI E 


CASE samps = 5 .OR. samps = 8 
DO CASE 
CASE rejectno = 0 
STORES TO taccept 
REPLACE rcmdinsp WITH "Reduced" 


CASE rejectno = 1 
STORE ТО t aceept 
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REPLACE rcmdinsp WITH "Normal" 


CASE кејесЕпо >= 2 
STORE ссоре 
REPLACE rcmdinsp WITH "Normal" 


ENDCASE 


CASE samps = 13 
DO CASE 
CASE rejectno << 1 
STORE YT TO tacceper 
REPLACE remdinsp WITH "Reduced" 


CASE rejectno = 2 
STORE Y TO -tace p. 
REPLACE rcmdinsp WITH "Normal" 


CASE rejectno >= 3 
STORE. NelOsvaccece 
REPLACE rcemdinsp WITH "Normal" 


ENDCASE 


CASE samps = 20 
DO CASE 
CASE rejectno <= 1 
STORE Y Ола с = оце 
REPLACE rcmdinsp WITH "Reduced" 


CASE rejectno > 1 .AND. rejectno <= 3 
STOREY TO t accepE 
REPLACE rcmdinsp WITH "Normal" 


CASE rejectno >= 4 
STORE N TO tac e pu 
КЕРҺАСЕ кспатпвр МЕТАНА Norm o, 


ENDCASE 


CASE samps - 32 
DO CASE 
CASE rejectno <= 2 
STORE Y ОТЕ КЕЗЕ 
REPLACE rcmdinsp WITH "Reduced" 


CASE rejectno > 2 .AND. rejectno <= 4 


ОКО YV TO ICE 
REPLACE rcemdinsp WITH "Normal" 
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CASE rejectno >= 5 
ПОСЕ О сасєсереЕ 
REELACE rcendinsp WITH Normali 


ENDCASE 


CASE samps = 50 
DO CASE 
CASE rejectno <= 3 
EIOBRESMY TOUGESCCept 
REPLACE rcmdinsp WITH "Reduced" 


CASE rejectno > 3 .AND. rejectno <= 5 
STORE Y TO tomes 
REPLACE rcmdinsp WITH "Normal" 


CASE rejectno >+ 6 
OTORETN OTO вассере 
REPLACE rcmdinsp WITH "Normal" 


ENDCASE 


CASE samps - 80 
DO CASE 
CASE rejectno <= 5 


оне ТО Caccepr 
REPLACE rcmdinsp WITH "Reduced" 


CASE rejectno > 5 .AND. rejectno <= 7 
STORES TO tacceps 
REPLACE remdinsp WITH "Normal" 


CASE rejectno >= 8 
ВЕ TO аскер е 
БЕРБАСЕ remdinsp With. Normal" 


ENDCASE 


CASE samps = 125 
DO CASE 
CASE rejectno <= 7 
SHORE TS TO tACCEDE 
REPLACE rcmdinsp WITH "Reduced" 


CASE rejectno > 7 .AND. rejectno <= 9 
ВОВЕ и Фон вассе оре 
REPLACE rcmdinsp WITH "Normal" 


CASE rejectno »- 10 


РОБ То га ссејое 
REPEACE remdinsp Wilh "Normal" 
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ENDCASE 


CASE samps »- 200 
DO CASE 
CASE rejectno << TO 
STORE Ове ве = роја 
REPLACE rcmdinsp WITH "Reduced" 


CASE rejectno > 10 .AND. rejectno <= 12 
STORE Y Ова се uis 
REPLACE rcmdinsp WITH "Normal" 


CASE rejectno >=. 
STORE N TO сасстерцв 
REPLACE rcmdinsp WITH "Normal" 


ENDCASE 
ENDCASE 

ENDCASE 
IF taccept 

REPLACE accept WITH Y 
ENDIE 
* Perform Deduct Analysis 
STORE samps TO sampnum 
STORE 1000 * (rejectno / sampnum) TO fails 
STORE fails ~ О теа 
REPLACE failrate WITH fails 


“Return to. calling program 
RETURN 
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МОРЕ 4.3 
* INSPANAL.CMD VERSION 1.1 9 MAY 84 HEM 


E module takes the results of SAMPANAL for the current 
* day, as well as several other preceding days, to determine 
* which level of inspection to recommend for the next day. 


SAVE TO keepem 
CLEAR 
RESTORE FROM keepem 


[LED BY: ANALYZE.CMD 
БЛОК О TO nobadays 


ШЕ b:daydata 
INDEX ON julian TO daydex 


LOCATE FOR julian = date 


* Determine the recommended inspection level for the next day 
DO CASE 
CASE finsplvl = "Normal" 
ӘКІР -4 
SOON NEXT 5 FOR .NOT. accept TO nobadays 
IF nobadays >= 2 
LOCATE FOR julian = date 
REPLACE remdinsp WITH "Tightenead" 
ELSE 
LOCATE FOR julian = date 
ПР => 
COUNT NEXT 10 FOR .NOT. accept TO nobadays 
IF nobadays = 0 
REPLACE remdinsp WITH "Reduced" 


ELSE 
КЕРГАСЕ rcemdinsp WITH “Normal” 
ENDIF 
ENDIF 
CASE finsplvl - "Tightened" 
LOCATE FOR julian = date 
SKIP -4 


SOUNT NEXT 5 FOR .NOT. accept TO nobadays 
IF nobadays = 0 
FP] Cp rcmdinsp WITH "Normal" 
ELSE 
LOCATE FOR julian = даће 
SKI >9 
COUNT МУЕХТ 10 POR NOT. accept to nobadays 
IF nobadays >= 10 
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REPLACE rcmdinsp WITH "Terminate" 
ELSE 
REPLACE remdinsp WITH "Tightened" 


ENDIE 
ENOTE 


ENDCASE 
RELEASE nobadays 


SAVE TO keepem 
CLEAR 
RESTORE FROM keepem 


х Return to the calling program 
RETURN 
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* MODULE 4.4 
EEUNSPKPT.CMD МЕ ОНО 12 АРЕ 84 НЕМ 


* This module takes the inspection results generated 
* previously, and prepares the Quality Assurance Reports. 


SAVE TO keepem 
CLEAR 
RiolORE FROM keepem 


Boe o:daydata 

LOCATE FOR julian = date 
MORE finsplvl TO insplvl 
STORE samps TO sampnum 


STORE events TO eventno 
ЕШ ЕБ ccmdinsp TO remd 


Шта ссерт 

STORE " accepted." to tres 
BI SE 

STORE " rejected." to tres 
ENDIF 


* Determine the type of output format to use. If terminate, 
* output the termination report, otherwise output the 
* status report. 


IF rcmdinsp = "Terminate" 
ЕНШІ FORMAT TO termrpt 
READ 

ELSE 
2 ЕОКМАТ TO statrpt 
READ 
SET TALK OFF 
WAIT 
FT TALK ON 

ENDIF 


Ш Кесптп to the calling program 
RETURN 
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MODULE 4.4.1 


STATRPT. FMT VERSIONS 


13,47 
ЕЗУ 
359 
SS 
15,45 
ie 
17,48 
I9: 5 
197555 
20,5 
20755 
2 5 
21,56 
DES 


22,20 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


12 APR 84 HEM 


"STATUS REPORT FOR JULIAN DATE" 

date 

Ае OE 

date 

", the status of the contractor s performance" 

"is as follows:" 

"Inspection of samples on" 

date 

"was conducted under the" 

insplvl 

"Inspection Level, and the contractor s work for th" 
ар day" 

"лас " 

tres 

"Number of jobs processed by contractor on" 

date 

емеш ша) 

"Number of samples taken by QA personnel:" 

sampnum 

"Number of samples which failed inspection:" 
rejectno 

"As a result of the above findings, and in accordan" 
"се with" 

"Mil Std-105D, it is recommended that the сопстас а 
"be continued," 

"and that the contractor’s work for the next day be" 
"inspected under" 

и Ehe " 

I Cma 

"level of inspection." 


МЛ? 


tO, 
ШІ 55 


N 


сл 
бл ‹л лал СЛ СЛ От СЛ n.o 


сл 


~ “а ~ ~ + ~ ` < ~ 
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"ATTENTION! ATTENTION! ATTENTION!" 

"As a result of the contractor having been placed o" 
"m Tightened" 

"Inspection for the previous ten days, and as the c 
ШОП асЕ т s" 

"work has failed inspection for all of those ten да" 
"ys ; in" 

"accordance with the procedures set forth in Mil St" 
т 

"is recommended that the inspection process now be" 
"suspended," 

"and that the contractor be placed in default of co" 
umbra acto, 
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* This is the menu module for all utility programs. 


ERASE 


а 10,10 SAY "THIS IS THE UTILITY MENU PROGRAMES TUDI 
@ 14,10 SAY "Press any key to continue." 
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